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IDENTIFICATION 
PRODUCT CODE: AC - FGI3A - MC 
PRODUCT NAME: CZTU1IAO T81 DATA RELIAB TEST 
PRODUCT DATE: SEPTEMBER 1985 
MAINTAINER: TAPE OPTICAL DIAGNOSTIC ENGINEERING 
AUTHOR : BRIAN T. LEBLANC 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND ste ee NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
OFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
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1 GENERAL INFORMATION 
1.1 Progrems Abstract 


The TU81 PDP11 Date Reliability program will exercise the 
TUB1 and establish the performance quality of each unit through the 
accusulation of statistics. Predetermined sequences of operations 
will permit read and write atibility (Media interch testing) 
and date reliability testing. is progrem will be desi to run in 
eo PDP11 <XXDP+ environment. 


The "ata Fog potion F program will detect functionel faults. but 
will not provide d ic isolation to the field replaceable unit. 


The PDP11 TUB1 Dete Reliability program is intended for the 
following users: 


1. Quelity and user audit functions, 


2. F AE€ET eat our various facilities, 


SeeaRReRessesacee 


3. Field service personnel, 


et ee 
Vw OVS IAU SUNY O 


4. DEC customers who choose to provide their own maintenance. 


Program uses include but are not limited to the following: 
1. Determination of a unit's spec'fic performance (error rate) 
2. Feult detection, 
3. Repair verification. 
4. Installation ver: fication, 


5. Preventive maintenance software tool. 


WSPUro OD 


This oreer ee will ners ee up to 4 TUBi's in a round-robin 
manner . t will 28KW of memor One default pass will be 
when a tape cartridge 600" ) has been started at the Ap — of tape 
(BOT) marker and has passed all “iat ag of t 
C(EOT) marker over the head, twice. End g “Ping (EOP) will 
require approximately 1 r and 10 sa for an unit under test. 


OoOf@ 


1.2 Runtime Environment Requirements 


tee be 


Run time environment requirements include: 


Ce had onl antostantonion 


144 

133 1. XXDP+ Diagnostic Supervisor 
oH 2. PDP11 family CPU, 

149 3. 28KW of memory. 


Es 


. — 
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4. an XXDP Load Device. 

S. Console Terminal, 

6. 1 to 4 TUB1 drives with controllers, 
7. 1 scratch tepe / TUS1 


1.3 Releted Documents And Stendards 

The TUB1 Date Reliability program will run under the XXDP+ 
operating system, and will be rvisor compatible. The program, 
with the supervisor will run on all ll processors. 

This program will conform to the following documents: 

1. EL-ENDIA-11 “PDP11 Diagnostic Design Guide", 

2. POP Diagnostic Quality Assurance Checklist, 

3. Software Development Policies And Procedures Manual, 

4. DEC Std 100, 

S. UNIBUS/Q-bus Storage Systems Port Spec Version 2.1 

6. Magnetic Tape Mass Storage Control Protocol Spec Version 1.6 
7 


. Mass Storage Control Protocol Spec Version 1.2 


1.4 Pess/Fail Criteria 

A unit under test will not pess the data reliability mode of 
testing if any of the following error conditions have occurred during 
the test cycle: 


i. a irrecoverable write errors detected as documented in the 
1 product specification, 


2. a irrecoverable read errors detected as documented in the 
1 product specification, 


3. Irrecovereble hardware errors have occurred, 


CRC recoverable read errors which exceed T8D errors in 10 to 
the lith bits read 


S. ECC recoverable read errors which exceed TBD errors in 10 to 
the lith bits read 


SEQ 4 
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1.5 Dete Compere Function 


The time required to perform 1008 software data comparisons is 
entirely prohibitive for streaming tepe drives. This problem is 
further execerbeted the asynchronous nature of command execution 
under TMSCP and program size limitations which dictate the allocation 
of e single read date buffer. 

_ To minimize the impact of all this, tests 2 and 5 (the only tests 
which will perform software date c res) will do software date 
comperes on every 4th record. To avoid problem of performing data 
comperes on ea dynemic read buffer, 3 records will be read from tape 
using the Access command. 


1.6 Restrictions 


This progrem is not intended for use as an isolation tool to 
detect a fault to the single Field Replaceable Unit (FRU). As such, 
it will not contein scope loops for that purpose. The parameter 
selection process, discussed later in this document, is meant to be 
used only for functional fault detection and unit isolation. 


maa A A ae ae 
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2 OPERATING INSTRUCTIONS 
2.1 User Dialogue 
The folloning user Jislogue will be provided | the diagnostic to 


allow the operator to establish certain operational parameters of the 
progrer. 


2.2 Werdwere Questions 


This set of questions must be answered by operator when the 
progres is first started. 


CHANGE HARDWARE (LL) ? no cefault 

NUMBER OF UNITS (D) ? 

UNIT x x = Number of unit the p-taeble is 
TKIP ADDRESS (0) 774500 ? being built for. 

T/MSCP UNIT NUMBER (0) O ? 


Unit specific prompting will continue for a maximum of 4 times, 
depending on the users response to the “NUMBER OF UNITS” question. 


2.2.1 Definition Of Hardware Questions - 

CHANGE HARDWARE - at Te want to ch the hardware p-table to be 
used in the testing this question must be answered yes. This question 
must be enswered with e yes on the initial start of the program. 
NUMBER OF UNITS - Number of units to test in decimal. 

TKIP ADDRESS - The base address for this unit. 


T/MSCP UNIT NUMBER - The unit number of the controller board as 
specified by MSCP. 


2.3 Softwere Questions 


Answering of the software questions is always optional. Default 
valves for @ specific question can be obtained simply by typing a 


CHANGE SW (L) ? no default 


ENABLE TIME OF DAY CLOCK (LL) N ? 
eM ee Ee Fatt teenies Den) 






— ZERO) (0) O ? 


ENABLE CONTROLLER ERROR RE 
ENABLE PAD SLOCKING (L) Y ? 
PRINTING PARAMETERS (L) N ? 
ENABLE SOFT ERROR REPORT PRINTING (L) N ? 





SEQ 6 
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2.3.1 Definition OF Software Questions - 


ENABLE TIME OF DAY CLOCK (L) N ? 


The default is to not enable the clock. This question allows the 
to stert a program ciock to track time on ea 24 hour basis 
during the running of the progrem. The clock will remain fairly 


accurate es long as the progren is running. Any time you stop the 
progrem the clock will stop running. It ie therefore necessary to 
reset the time whenever the progrem is started. 


INPUT HOUR IN 24 HOUR FORMAT (OMIT LEADING ZEROS) (0D) O ? 
Input the hour in e decimal number leaving cff any leeding zeros. 


INPUT MINUTES COMIT LEADING ZEROS) (1) 0 ? 
Input the minutes in ae decimal number leaving off any leading zeros. 


CHANGE CONTROLLER PARAMETERS (L) N ? 


The defeult answer (no) prohibits the asking of the controller 
peremeter questions. To change the controller parameters type a Y. 


ENABLE CONTROLLER ERROR CORRECTION (LL) Y ? 

If enswered “yes” (default) the em will enable the controller's 
error correction elgorithms for errors. 

ENABLE CONTROLLER ERROR RECOVERY (L) Y ? 

If answered “yes” (default) the program will enable the controller's 
error recovery algorithms for write and read errors. 


ENABLE PAD BLOCKING (L) Y ? 





SEQ 7? 
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Vs If answered “yes” (default) the pre will enable the controller's 

ys pad blocking algorithas to ess: in streaming 

a 

3 

+e CHANGE PRINTING PARAMETERS (1) N ? 

r The default answer (no) prohibits the asking of the printing peremeter 

{ questions. To change the printing peremeters type ea Y. 

rT 

+ ENABLE SOFT ERROR REPORTS (L) N ? 

f default answer (no) inhibits the printing, but not the eeliy tng of 
the subsystem. Answering the question 


errors es ‘ 
“yes” mets gy wg in detailed error reports on the terminal for each 
recoverable dete error. 


ENABLE READ SOFT ERRORS ONLY (L) N ? 


This qprtten will only be asked when the above question is answered 
no is question ellows the operator to enable print outs on read 
soft errors only. The default answer is to inhibit all soft error 
printouts. 


CLEAR MEDIA TABLE ON EVERY PASS (L) N ? 

The default enswer (no) allows the tellying of media defects over 
tiple passes. enswering the question yes. the operator can then 

print the table on every pass end see how the defects are affected by 

passing over the heeds. 

ENABLE PRINTING OF MEDIA DEFECTS TABLE (L) N ? 


The default anewer (no) inhibits the printing. but not the tallying of 
in the soft error rts by the subsystem. 







ae Mn aatthe 2b atkeen Bea Pn eatne >t yatin ane Bn tahen Or ant 


commend at isor prompt (D0S>) after the termination 
. Foley Hogg on “yes” will cause the printing 


questi 
after every pass and after e control C (C) is issued. 
ENABLE CLEAR STATS ON FATAL ERROR (L) N ? 


The default enswer (no) allows the accumulation of statistics from 
pass to pess. An enswer of “yes” results in the clearing of a devices 
statistical matrix following eny error thet results in the unit's 
peine d from the test sequence for the rest of the current pess. 

is action is intended for use primerily by Springfield volume 


+4 + 44 4+ 


eccuring. 


Seb haem ew 


ENABLE PROGRAM VARIABLES DUMP ON FATAL ERPOR (L) N ? 
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The defeuvlt enswer (no) prohibits the asking of the test peremeter 

questions. To test peremeters type ea Y. 

DATA PATTERN (0) 0 ? 

eo patterns. allows the user to select «e ag ag et ¢ teble 
Pe nn by the progrem. (See Data Pattern section 
éePeult pon adh cpg "0", causes the program to cycle 

ee patterns. Answering the question with ea number f i-5 

to use that pattern only A r higher 
will question to be repeated. 


RUN TEST 3 OMLY (1) Y ? 


Anewering this question “Y" (default) will automatically cause 
run test 3 only; i.e.. it will no longer be necessary ° 
use the /TES:3 switch to the start command. Please note that this 
ion ww il effectively override the /TES: switch if the user 
oe other then 3. Thet is. if the user wants to run 
test he aust specify the /TES:4 switch AND answer this question “N". 


ENABLE DATA COMPARES IN TEST 5 (L) N ? 


me default enswer (no) Sivelious the date compere function during 

5S, This would have to be the case when running with ea truly 

The option ell, is given to the operator so that when 

& ah, is “written in @ known manner using this progrem the operator 
5S using dete compsres. 


ENABLE PRINT READ BUFFER IN TEST 5 (L) N ? 


Answer ing wie aostiee — S he wre. ® printout of all dete read 

tape in be presented on a record basis. 
Thie ie @ time consumi von Buwy a this question should be 
defaulted except in speciel cases. 


CHANGE COMMAND SEQUENCE (1) N ? 
Answering thie question “Y" will cause the program prompt the user 


5 @ sequence of commands to be used in Test 7. (See Test 7 below. 
I? defaulted, this is the lest software question asked 


~ 





SEQ 9 
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SEQ 10 









DATA PATTERN (0) 1 ? 
The user dé enter the octel value of the desired date pattern from 
the table of patterns shown sbove. If the command does not use e date 
tern, any number entered here is ignored. 
PATTERN @ DESCRIPTION 
0 ROTATE THROUGH ALL DATA PATTERNS 
3 ALL O's 
ALL 90° 
3 WORST-CASE MFM PEAK SHIFT (110) 
4 ALTERNATE 1‘S AND 0'S 
5 RANDOM DATA 
$ Mi PEAK SHIFT (3329) 
COMBINATION OF PATTERN 3 AND 5 
200 NO DATA PATTERN USED 
ITEM COUNT (BYTE, RECORD, OBJECT) (0) 0 7? 
The purpose of this field veries with the type of command. for 
exemple. for write and reed commends, the user may specify the record 
size, in deciaal es. If the commend is @ reposition commend, the 
veer mey specify mvaber of records, aseee or file marks. There 
ere eleo two speciel commends provided which use this velue in unique 
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of four questions will be repeated 
command tebl 


by Test 7. Please remembe 
progres and have no cumerieni 
so note thet the diagnostic 
ve entered or for velid 
of these ceses could result in 


7 


2.6 Supervisor Run Tise Flags 
Thi i i i : 
seeks i> eragrem wihh meee’ afd of the PELs Olagnestio Supervisor 


LOE - Leep on Error - This fleg will not be supported by this progres. 





SEQ 11 
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Dete reliability progress do not lend thesselves to iaplenmentation of 
error loops. 


be 
If en error oF ratel 
continue running if 
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3 GRR IS OUArTion 
3.1 Errer Reporting 


THOR provides @ wveriety of inforasti in 
acst of wshich lo. self-esplanetery . Tre. 
intended to cler 












3.2 Commands 

All error inteute will i field indi i the ray 
on stnich the error was getected. Rater to tne. THC? osc’ icetion 
detai descriptions commends. Also, eese note thet 
commends cur! veed by ere indicated by en eeteriek. 


ition) 


ies 


% 
3 















online 
set wit istics 
cause tanaltlant 


$ 
@ 


ass 


character istice 
oe Seetenee” ore weed by Wee fer cpecial 
y sent eas commends to the subsystes: 


mull - used progres to while waiti for lest responses 
sory TP yo Ban B “"~ 


initialize - ueed by progres to invoke the UG-Port init 
SEQUENCE 


; 
3 


a 
[ 


7 
f. 
; 
4 
r 
} 
} 
; 





te a i 


3.3 Type Of Error 
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om i a - _ 


These messages are derived from the status field of an end pecxes 


and correspond directly to the status codes as defined in the 
specification. 


Invalid command issued 
Command aborted 

Unit offline 

Unit aveilable error 
Unit write protected 
Data compare error 

Date error 

Host buffer access error 
Controller error 

Drive error 

Formaetter error 

BOT encountered 

Tape mark encountered 
Data record truncated 
Position lost 

Serious exception 
Logical EOT encountered 


3.5 Error Log Packets 


Certain messages will be generated as a result of receiving the 


“diagnostic mode” error log packet. 


3.6 Program Detected Error Conditions 


Retriable Data 
Hard CRC 

Data Underrun 

Date Overrun 

ECC Corrected 

CRC Error on ECC Block 


In addition to reporting errors detected by the subsystem, TKOR 
rate additional error reports based on problems it detects. 
These error conditions ere presented and defined here. 


may 


Invalid status received - the contents of the status field of an end 
acket is not a valid status as defined by 


MSCP 


Port-detected error - examination of the SA register indicated an 
error condition exists within the controller 


Program 


command timeout - the program received no end packet from the 
subsystem within the predefined command time- 


out. 


Response out of sequence - the program received an end packet for a 


SEQ 14 





ee 
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= sequential command other than the oldest out- 
Ls standing command. 
707 Port initialization failed - the port failed to make an expected step 
Ls transition during the UQ-Port init sequence. 
710 Software data compare - the program's dats compare routine detected a 
oes miscomparison of read data to expected date. 
12 
713 Record length short - the date record read from tape was shorter than 
ue the record length expected. 
718 3.7 Drive Errors 
716 On occurrence of a Drive Error, status code of 13(8), the error 
719 log packet will now contain a status code which is the drive error 
720 shes as returned by the drive. This value will be placed in the ORV 
te Cc field of the error log packet. 
723 To understand the precise nature of the error condition it will 
724 be necessary to correlate the value presented in the printout against 
725 the table below. 
139 
i8 Octal Hex Description 
130 1 01 Write lock violation 
731 2 02 Drive fault 
73 4 04 Communication exception (timeout, etc.) 
73 6 06 Wrong track error CVedlouing a turnaround) 
734 10 08 No cable or drive powered off 
735 20 10 Synchronization failure - write/read 
736 23 13 
737 4& 22 
738 45 23 
739 47 27 
740 201 81 Failure to load to BOT 
741 202 82 Failure to unload tape into cartridge 
74 203 83 General motor or tach failure 
74 204 84 Motor A failure 
744 205 85 Motor 8 failure 
745 . 206 86 Drive lost control of tape or bad tach 
746 207 87 Excessive drag in tape transport 
747 210 88 Failure to stop tape or remain stopped 
748 211 89 Cartridge insert error 
749 2i2 8A Cartridge extract error 
750 215 88 CU attempted to move tape with drive in error 
751 214 8C Deceleration timeout error 
752 215 80 Second attempt to balance reels in init failed 
753 220 90 8155 RAM memory feilure in self-test 
754 221 91 8155 timer failure 
755 222 92 Read amplit (Hd 1) too low in calibrate 
756 223 93 Read amplit (Hd 2) too low in calibrate 
757 225 95 EOT sensed in R/W/S 
758 226 96 BOT sensed in R/W/S 
789 227 97 Drive block address overflow 


ee ee ee we 


ee 


er te er 
’ 
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760 239 98 Drive biock address underflow 

761 231 99 Servo error - excessive speed variations 

762 231 9A Failure in tracki - currently not 

763 233 98 Command error - not recognized 

764 234 9C Illegal command - incompatible with drive state 
765 235 9D Write lock error , 

766 236 9E Write gate at wrong time 

767 237 oF No write gate for calibration track write 
768 240 AO Error sensing cal track 1 - bad head? 

769 241 Al Error sensing cal track 2 - bad head? 

770 242 A2 Detect:on of edges of cal trk 1 out of spec 
771 243 A3 Detection of edges of cal trk 2 out of spec 
772 24a A4 Offset of cal trk 2 from 1 is too great 

773 245 AS Search for bottom edge of tape fai ied 

774 246 AG Bottom tape edge tolerance error 

rie 247 A7 Drive is overheating 

777 250 A& No current in LED of BOT sensor (cable?) 

778 251 Ag Hell switch sense lines Motor A questionable 
Bh 252 BA Tachometer failure 

us ¢ 3.8 Hard Error Reports 

76 Hard error reports. if not user disabled, will be generated 
Ls 4 anytime an error recovery process does not successfully complete. 
A Hard Error reports will typically be of the following format: 
7AR CZTUL HRD ERR 00014 ON UNIT 00 TST 003 SUB 000 PC: 020460 
7869 HARD DATA ERROR 

790 COMMAND: RD T/MSCP UNIT: O00C0) 

791 PASS: 1¢D) DATA PAT: 01(0) 

79 RECORD BYTE COUNT: 457(D0) 

a OBJECT CNT : 0000000263552(0) 

795 RESPONSE PACKET 

796 HIGH WORD LOW WORD 

797 000000( 0) 026532(0) 

798 000000( 0) £0) 

799 000050( 0) 010240(0) 

800 000000(0) 000733(0) 

601 000000( 0) 000000(0) 

802 000000( 0) 000000(0) 

603 000000( 0) 000000(0) 

804 000000( 0) 001413(0) 

805 000000(0) 000733(0) 

806 

od NOTE 

809 Some error reports will not include a Response Packet 
810 field. For example a Command Timeout Error, by 
811 definition, results only when no response to a command 
812 has been received prior to expiration of the programs 
813 watch dog timer. 

814 

815 

816 


oe ee -_— 
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OPER FLGS: 000000(0) 


617 
ot8 3.9 Soft Error Reports 
620 Soft error reports, if not user disabled, will be generated 
621 anytime an error recovery process is successful. The soft error 
622 report will include the number of retries necessary in order to 
825 successfully complete the current operation. Soft Error reports will 
oes typically be of the following format: 
626 CZTUL SFT RD ERR 00014 ON UNIT 00 TST 003 SUB 000 PC: 020460 
627 ECC RECOVERED DATA ERROR 
8 CCMMAND: RD T/MSCP UNIT: O000(0) 
8 PASS: 1¢D) DATA PAT: 01(€0) 
6 OBJECT CNT : 000000026352(0) 
8 TAP OBJ CNT: 000000026352(0) 
os TRK NUM: 6(D) LEVEL: OCD)  $RETRIES: 1(€D0) 
8 LOG BLK NUM: OCD) PHYS BLK NUM: 9932(D) 
tr DRV CODE: 000(0) ORV FLGS: 041(0) 
5 DRV STATE: 000000(9) INTERN STATUS: 002(0) 
636 TAP CNT O: 227(0) TAP CNT 1: 015(0) 
° TAP CNT 2: 035(0) RD/WR STATE: 000000(0) 
8 
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4 PERFORMANCE AND PROGRESS REPORTS 
4.1 Statistics Matrix 


SOFT DATA ERRORS 


DATA OVERRUN 
— 


TIMES DROPPED 
BYTES WRITTEN 
BYTES READ 


READ WRITE 
CH 1 CH 2 CH 1 CH 2 
x x x 
x » N.A. 
w x x 
x x N.A. 
x N.A. 
N.A. x 
x N.A. 
x x 
x 
xX 
X, XXX, XXX, XXX 
XK, XXX, XXX, XXX 


TRK PHY BLK HWR HRD SWR SRD 


126 


0 26 
0 2474 
1 

1 10374 


4.2 Read Error Definition 


1. 


SOFT DATA ERRORS 
0 Retry Corrected 


oo oOo 


oo oo 
ee PP 
oo oo 


ECC disabled or repositioning 


required because >1 block in ECC group was bad. 


O ECC Corrected - CRC error occurred on data block but 
hes corrected it 


Herd Data Errors - Maximum retries exhausted and data 


recovered. 


CRC Error on ECC Block - Dete was read successfully, but 


error occurred 


ECC 


not 


CRC 


Data Compare - No hardware detected errors, but the date 
compare failed. on an associated ECC block. 


Date Overrun - The controller did not have sufficient buffer 


spece for read date. 





SEQ 18 
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898 4.3 Write Error Definition 
699 
90 1. Retry Recovered - rational write algorithm wes enabled ene 
90 controller a OS recovered from e write error. In 
90 this case, media-induced write errors will appeer in this 
393 category.) 

2. Hard Dete Errors - Write retries exhausted and block not 
907 successfully written. 


3. Underrun - Controller ran out of write data blocks prior to a 
0 record boundary. 


316 4.4 Miscellaneous 

4 8 1. Mispositions - Times the drive lost position on tape. 

3 ? 2. Others - This is a tally of all errors not specifically 
called out in the error matrix. 

338 3. Times Dropped - Times the drive has been dropped by the 
program. 
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S TEST DESCRIPTIONS 
S.1 Test 1 Basic Function Test - 
This test will execute a subset of the available commands on the 
unit under ogg It serves as e@ quick py phe | test to ascertain that 
the unit can move tape and write/read predictably, without error. The 
subset of legal come t ill be issued in a coherent manner. 
The testing sequence, performed once will be as follows: 
1. Execute online 
2. Rewind to ensure that tepe is at BOT, 
3. Write two tapemarks, just efter BOT, 
4. Backspace two tapemarks, 


5S. Spece forward to LEOT, 


6. Rewind, 
7. Write, using increasing byte counts, rotating through all 
date patterns. usi decreasing file lengths. Files to be 


sepereted by tape marks. 

8. Write LEOT after previous sequence, 

9. Rewind, 

10. Read records of the first file, 

11. Space records over the second and third files, 
12. Space objects over the fourth file, 

13. Read records of the fifth file, 

14. Skip reverse over four tape marks, 

15. Skip forward one tape mark, 

16. Read the second file set, 

17. Space objects over the third record set, 
18. Read the fourth record set, 

19. Spece objects to LEOT, 

20. Space objects reverse to Just after BOT, 
21. Skip four tape marks, 
22. Space records over the fourth record set, 





SEQ 20 


————_ eee 
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23. Skip e tepe mark, 

24. Read the sixth record set. 

25. Skip two tape marks, 

26. Space objects reverse to the end of the second file set, 
27. Skip eae tepe mark, 

28. Read the third file set, 

29. Rewind tape. 


5.2 Test 2 Quick Verify Read/Write Test 


This test rewinds the tape, then executes the following sequence: 

1. Write record set, 

2. Write LEOT, 

3. Rewind, 

4. Reposition to just written record set, 

S. Read the current record set, 

6. Skip to LEOT. 
for 5 iterations or until fatal error is encountered. This test 
permits retries, fixed record length (4096 bytes decimal), fixed 


number of records/set (250), and predetermined data patterns. This 
test will execute in e round-robin manner. 


5.3 Test 3 Complex Read/Write Test 


This test rewinds the tape, and executes the following sequence: 
1. Write N records, 

. Write eo tape mark, 

. Repeet 1 and 2 until EOT is reached, 

Write 2 tape marks (LEOT). 

. Rewind, 

. Read N records, 

. Space 1 record (should see unexpected tape mark ) 





vu oOo vy & WwW W 
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8. Repeat 6 and 7 until LEOT. 


Number of records (N). and record size will be randomly selected. 
This sequence will permit hardware retries, if enabled by the 
operator. This test will run until E0OT. LEOT or fatel error is 
yeeros. All date patterns including random date will be used in 

is test. 


5.4 Test 4 Write Interchange Tape 
This test will rewind the tape, then write until EOT or ea fatel 
error is encountered. This test will keep track of the number of 
and files written. If a fatel error is encountered, @ message 


records 
will report it, the tape on the unit will be rewound, and the unit 
prevented from executing further write operations. 


5.5 Test 5 Read Unknown Tape 
This test will rewind ea tape, then read until EOT, LEOT or fatel 


error is encountered. This test will keep track of the number of 


records end files read. If a fatal error is encountered, 48 message 
will report it, the tape on the unit will be rewound, and the unit 
prevented from executing further read operations. 
NOTE 
Tests 4 and 5 can be used to perform a media 
interchange test for multiple drives. The program 
will not attempt to make any determination as to 


whether the unit that wrote the tape or the unit 
reading the tepe is at fault for any errors. 


5.6 Test 6 Stert/Stop Write/Read Test 


This test rewinds the tape, then executes the following sequence: 
1. Write record set, stopping between each record, 
2. Write e tape mark, 
3. Repeat steps one and two until two tracks nave been written, 
4. Write LEOT, 
5. Rewind, 
6. Read the record set stopping between each record, 
7. Skip e tape mark, 
8. Repeat <*teps six and seven until LEOT is detected, 


SEQ 22 
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1096 : 
ett 9S. Rexind. 
0 Until fetel error is encountered. This test permits retries, fixed 
record 1 (8096 bytes decimal), fixed number of records/set (250), 
and ined dete patterns. This test will execute in oe 


Se ~ 


03 
07 





' 
\ ee emcee 


round-robin menner . ; 


5.7 Test 7 Conversation Test 


Conversation mode will run with or without error reports. The 
user cen select, from « list of commands, ea sequence which can be used 
to onpnete © ~~ = fe: lure hay * me “a the ag" = 
specify unique ays. renging from o 250 ms. user can follow 
each tape command wit. integer values, the first indicating the 
byte/record/file count and second indicating the @ of repetitions 
ermaaatiia for that commend. 


.- TITLE PROGRAM HEADER AND TABLES 
-SBTTL PROGRAM HEADER 

-ENABL ABS AMA 

.DSABL GBL 

° = 2000 

BGNMOD 
*¢ 
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
72° 

POINTER BGNSW,BGNSFT,BGNRPT,ERRTBL ,.BGNDU, BGNSE TUP 


HEADER CEIUL.A.9, Fee ah ee 


LSNAME: : sDIAGNOSTIC NAME 
.ASCII /C/ 
-ASCII /Z/ 
-ASCII /T/ 
-ASCII /U/ 
-ASCII /1/ 
.BYTE 90 
BYTE 9O 
.BYTE OO 
LSREV: : ;sREVISION LEVEL 
-ASCII /A/ 
LSDEPO: : 30 
.ASCII /0/ 
LSUNIT: : ;NUMBER OF UNITS 
. TSPTHV 
LSTIML:: ;LONGEST TEST TIME 





SEQ 25 


a 


— = 
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PROGRAM 
_MORD 15000 
— LSHPcr: : - :sPOINTER TO H.W. QUES. 
1020; osesee LSSPCP:: i ;POINTER TO S.W. QUES. 
902022 LewpTe::” ;PTR. TO DEF. H.W. PTABLE 
yisrr 0022 .WORD LsHu 

02024 wal LSSPTP:: sit ;PTR. TO S.W. PTABLE 

7 0022 .WORD L 
10 Oet LSLADP: : —— ;DIAG. END ADDRESS 
1020) , $10740 LSSTA:: ;RESERVED FOR APT STATS 
0% +4 + 000000 ain. -WORD OO 
202032 000000 WORD 0 
0205. LeDTYP: : : ;DIAGNOSTIC TYPE 
0205 erat LOAPT:: — 4 ;APT EXPANSION 
10; 046 LeoTP:: 5 acl PTR. TO DISPATCH TABLE 
0 i sore LSPRIO:: ;DIAGNOSTIC RUN PRIORITY 
02044 LOENVI:: ;FLAGS DESCRIBE HOW IT WAS SETUP 
0; Oe 900000 LSExPi:: mane ;EXPANSION WORD 
0205 LOMREV::" SVC REV AND EDIT @ 
10205 YTE  CSREVISION 
10208 000 ‘BYTE SEDI 
eH LSEF:: ° ;DIAG. EVENT FLAGS 
+4 >4¢ 
98084 900000 9 

LéSPC:: 

102086 000000 ; 0 
10206" LSDEVP: : ; POINTER TO DEVICE TYPE LIST 


LOREPP:: ;PTR. TO REPORT CODE 
LSEXP4:: 


LOExPS:: 


+4 doe 000000 ° 

02 { LSAUT:: > :PTR. TO ADD UNIT CODE 

03 000000 LéDUT: : le :PTR. TO DROP UNIT CODE 

02 eaeave LSLUN: : s ;LUN FOR EXERCISERS TO FILL 
$33 y seen: LSDESP:: ‘ ;POINTER TO DIAG. DESCRIPTION 
aren 46(CCRse LSLOAD:: ;GENERATE SPECIAL AUTOLOAD EMT 
02100 104035 ENT ESLOAD 

20, r LSETP:: ‘: sPOINTER TO ERRTBL 

D0R10e 015166 rere, CNS. Comm. TO INET CODE 

0, 036644 -WORD L$ 


SEQ 26 
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PTR. TO CLEAN-UP CODE 
sPTR. TO AUTO CODE 
sPTR. TO PROTECT TABLE 
sTEST NUMBER 

sDELAY COUNT 
;PTR. TO HIGH NEN 


-~—-— = 
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-SBTTL OISPATCH TABLE 





Lif e5tt . DESCRIPT <CZTULAO TU81 DATA RELIAB TEST> 
I. sDESC:: 
0; 103 132 124 -ASCIZ /CZTULAO TUB1 DATA RELIAB TEST/ 





“ 
3 MAMES OF DEVICES SUPPORTED BY PROGRAM 
5 


<TUB1> 
“wee : 


070 EVEN” sTUsis 








LE mw ~—— 
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-SBTTL DEFAULT HARDWARE P-TABLE 


*¢ 

; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 

; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 


BGNHW DF PTBL 
. WORD L10000-L $HW/2 
L$HW:: 
DFPTBL:: 
174500 ;TKIP ADDRESS 
0 ;T/MSCP UNIT NUMBER 
ENDHW 
L10000: 


— ee 


—_ eee a ia CC CT LL LL LL LA MLL LLL LL LLL LL —— eee ee —_. 
-_ eee eee a -~— ——— = ~ 
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SOFTWARE P-TABLE 


1222 _SBTTL SOFTWARE P-TABLE 
1223 
1224 ae 
1225 ; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
1339 ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
1228 
1229 002214 BGNSW SFPTBL 
002214 000042 WORD L10001-L$SW/2 
002216 L$SW:: 
neil 002216 SFPTBL: : 
1231 002216 000 CLOCK: : BYTE 0 sENABLE TIME OF DAY CLOCK 
| 1232 002217 900 S:: BYTE O HOURS FOR TIME OF DAY CLOCK 
1233 002220 000 MINUTE: : BYTE 0 sMINUTES FOR TIME OF DAY CLOCK 
| 1234 002221 000 SECOND: : BYTE O ;SECONDS FOR TIME OF DAY CLOCK 
1235 002222 000 SUBSEC: : BYTE 0 ; SUBSECONDS FOR TIME OF DAY CLOCK 
1237 002223 000 CONTPA: : BYTE 0 ;CHANGE CONTROLLER PARARMETERS 
1238 002224 001 SERCOR: : BYTE 1 ;ENABLE ERROR CORRECTION FLAG 
1239 002225 001 SERREC: : BYTE 1 ;ENABLE ERROR RECOVERY FLAG 
1240 002226 001 ITY:: BYTE 1 ; INITIAL TEST DENSITY (GCR) 
1242 002227 000 PRNTPA: : BYTE 0 ;CHANGE PRINT PARAMETERS 
1243 002230 000 SOERRP: : BYTE 0 ;ENABLE SOFT ERROR REPORT FLAG 
1244 002231 001 RDSOER: : BYTE 1 :ENABLE READ SOFT ERRORS ONLY 
-oc5 002232 T7TBL:: ;COMMAND TABLE TOP -6 
1248 002232 000 NOCLR: : .BYTE 0 ;ENABLE CLEAR STATS ON FATAL ERROR 
1249 002233 000 DMPFLG: : BYTE 0 ;ENABLE PROGRAM TABLE DUMP ON ERROR 
1251 002234 000 TESTPA: : BYTE 0 ;CHANGE TEST PARAMETERS 
1252 002235 000 PATERN: : -BYTE 0 ;CHANGE DATA PATTERN 
1253 36 001 TSCMP BYTE 1 ;sENABLE DATA COMPARES IN TEST 5 
1254 002237 000 CHGFLG BYTE 0 ;CHANGE CMD SEQ TABLE FLAG 
1256 002240 160 T7CMD1: BYTE REW ; REWIND 
1257 00224! 000 “BYTE NULPAT 
1258 002242 000000 WORD 
1259 002244 000001 WORD i 
1261 002246 020 T7CMD2: BYTE WR ;WRITE RECORDS 
1262 002247 007 ‘BYTE PAT? 
1263 004000 2048 
1264 002252 000310 WORD 200 
1266 002254 100 T7CMD3: BYTE WIM ;WRITE TAPE MARK 
1267 002255 000 “BYTE NULPAT 
268 56 000000 WORD 
1269 002260 000002 WORD 2 
1271 002262 061 T7CMD4: BYTE  SKR ;SKIP TAPE MARKS REVERSE 
1272 002263 000 ‘BYTE NULPAT 
1273 002 000000 WORD 0 
1274 002266 000002 WORD 2 


—— a 


PROGR 
SOF TW 


AM HEADER AND TABLES 

ARE P-TABLE 
1276 
1277 002270 160 
1278 002271 000 
1279 002272 900000 
12860 002274 000001 
1261 
1262 002276 010 
1263 002277 007 
1284 002 004 
1285 002302 000310 
1286 
12867 002304 060 
12868 002305 000 
1289 002 000901 
1290 002310 000002 
1291 
1292 002312 160 
1293 00231 000 
1294 002314 000000 
1295 002316 C00001 
+o. 002320 177777 
1300 002522 

002322 


1301 
1302 002322 


—- ee 
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T7CMDS : 


T7CMD6 : 


T7CMD7: 


T7END: 


ENOSW 
L10001: 


ENDMOD 


. WORD 
.EVEN 


;REWIND 


;READ RECORDS 


;SKIP TAPE MARK 


;REWIND 


SEQ 29 


PROGRAM HEADER AND TABLES 
SOFTWARE P-TABLE 


1393 002322 


14 
1406 002322 


36 
000035 


~ ee 
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.TITLE GLOBAL 


AREAS 
.SBTTL GLOBAL EQUATES SECTION 
BGNMOD 


5S ENSBNS ONSEN ENS ONSEN ONIONS ONS ENS ONS ONSEN ONS BSS ONSEN ONS ONS ENS ONS ON ON 


; 1.0 


sae ev sen/a\/ 807 0\78\74N/0N/8\70\76\/0\/6\/8\/8\/8\/0\/0\ 78/0 /0\0N/0. 
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SUPERVISOR DEFINED LITERALS 


ee ee - 


:¢ 
; THE GLOBAL EQUATES SECTION — PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE T 


EQUALS 


: 
; BIT DIFINITIONS 


BIT1S== 
BIT14== 
BIT13=< 


FLAG DEFINITIONS 


EVENT 
NEFS2:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 
BIT POSITION IN SECOND STATUS WORD 
(100000) START 


EF .START== 32. 
EF/RESTART== 31. 
EF|CONTINUE== 30. 


EF .NEW== 


ae. 


COMMAND WAS ISSUED 


(020000) CONTINUE COMMAND WAS ISSUE 


D 
A NEW PASS HAS BEEN STARTED 


SEQ 30 


———— —— 


a 





ee —_— = -_ — 
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GLOBAL EQUATES SECTION _ 
000034 EF .PuR== 28. ; (004000) A POWER-FAIL/POWER-UP OCCURRED 
i 
Q 
; PRIORITY LEVEL DEFINITIONS 
000340 PRIO7== 340 
000300 PRIO06== 300 
000240 PRIOS== 240 
000200 PRIO4== 200 
000140 PRIO3== 140 
000100 PRIO2== 100 
000040 PRIO1== 40 
000000 PRIOO== 0 : 
‘OPERATOR FLAG BITS 
EVL== 
000010 LOT== 19 
000020 ADR== 
C00040 IDU== 40 
000100 ISR== 100 
000200 UAM== 
00 BOE== 400 
001000 PNT== 1000 
002000 PRI-= 2000 
010000 IBE== 10000 
0000 LOE*== 40000 
100000 HOE== 100000 
1407 


° 
: 
am 
m 
x» 
u 
8 
: 


GLOB 
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ee eee 


5 SONS ONS ONS ENS ONS ENS ENS ENS ONS ENS ENS ONIONS BNI ONT ENT ENS ONS ANT ANTONI ANT ONION 
OMMAND LITERAL 


; 2.0 
5 JENS ENS ONSEN ENS ENS ONS ENS ONS ONIONS ONION ONIONS ONSEN EN ONIONS ONSEN ONSEN 


Nw 
OOPP>D: 
geeene™ 


rane 


Sseuae 
= ov 


~ SEBSsSsSsVsVsesssee 


~ 9365 


on 


CRF 

UNIT 
OPCD 
BCNT 


B. P2BPeP~ 33833S3S3SSSSS 
& 


2 


COMMAND _— OPCODES 


COMMAND 
2s 04 


Cc 
; AVAIL EC 
;COMPARE HOST DAT 
* DETERMINE ACCESS PATH COMMAND 
; ERASE 
;ERASE GAP 
Tec US COMMAND 


;GET COMMAND STAT 
;GET UNIT STATUS COMMAND 
INE COMMAND 
READ C 
;REPOSITION Cc 


OMMAND 
:SET CONTROLLER CHARACTERISTICS COMMAND 
eT ee CHARACTERISTICS COMMAND 


COMMAND 
;sWRITE TAPE MARK COMMAND 
;END MESSAGE FLAG 
; AVAILABLE ATTENTION MESSAGE 
;ACCESS PATH ATTENTION MESSAGE 


; COMPARE 

;CLEAR SERICUS EXCEPTION 
;SUPPRESS ERROR CORRECTION 
; SUPPRESS ERROR RECOVERY 
;DETECT LEOT 

; IMMEDIATE 

sEXCLUSIVE ACCESS 

; UNLOAD 

;REVERSE 

;OBJECT COUNT 

;SET WRITE PROTECT 


;REW 

;ALL CLASS DRIVERS 
; SPEED 

;NEXT UNIT 


GENERIC — PACKET OFFSETS 


;COMMAND REFERENCE NUMBER 
;UNIT NUMBER 


; OPCODE 

; MODIFIERS 

;BYTE COUNT 

;BUFFER DESCRIPTOR 


ABORT - S COMMAND STATUS OFFSETS PACKET OFFSETS 


;OUTSTANDING COMMAND REFERENCE NUMBER 


ONLINE AND SET UNIT CHARACTERISTICS PACKET OFFSETS 
22 14 ;UNIT FLAGS 


SEQ 32 


EE 


-_— 
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ss 34 ;DEVICE DEPENDENT PARAMETERS 
a: 40 3 FORMAT 

2 42 ; SPEED 

REPOSITION COMMAND PACKET OFFSETS 

Be LG ;RECORD/OBJECT COUNT 

ld 20 ;TAPE MARK COUNT 

SET Se CRRA ane ICS PACKET OFFSETS 

ae 16 CONTROLLER FLAGS 

== 20 sHOST TIMEOUT 

22 24 ;QUAD-WORD TIME AND DATE 

ze 34 ;CONTROLLER DEPENDENT PARAMETERS 


a em 


SEQ 33 


GLOBAL AREAS 
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GLOBAL EQUATES SECTION 


pS ONSENS ONS ONS ONS ONS ENS ANS ONIONS ONS ONS ON ONSEN ONS ONS ON ONS ONS ONS ONSEN ON 
; 3.0 TMSCP END PACKET LITERALS 
5 SONS ONS ONJONS ENON ENS ENS ONS ENON ONSEN BNI ENON ONS ONS ENS ONS ONS ONS ONT EN 


; 3.1 END PACKET FLAGS 
EF.LOG == 000040 ;ERROR LOG GENERATED 
EF .SEX == 000020 ;SERIOUS EXCEPTION 
EF .EOT == 000010 ;EOT ENCOUNTERED 
3.2 CONTROLLER FLAGS 
CF.ATIN == 000200 ;sENABLE ATTENTION INTERUPTS 
CF.MSC == 000100 ;sENABLE MISCELLANEOUS ERROR LOG MESSAGES 
CF.OTH == 000040 ;ENABLE OTHER HOSTS ERROR LOG MESSAGES 
CF.THS == 000020 ;ENABLE THIS HOSTS ERROR LOG MESSAGES 
s 3.8 UNIT FLAGS 
UF .WPH == 02 ;sWRITE PROTECT CHARDWARE ) 
UF .VSU == 020000 ; VARIABLE SPEED UNIT 
UF .WPS == 010000 ;SOFTWARE WRITE PROTECT 
UF .RMV == 000200 ;sREMOVABLE MEDIA 
UF .VSS == 000040 ; VARIABLE SPEED MODE SUPPRESSION 
UF .CMW == 000002 ;COMPARE WRITES 
UF .CMR == 000001 ;COMPARE READS 
; 3.4 GENERIC END MESSAGE OFFSETS 
P.CRF =s 0 ;COMMAND REFERENCE NUMBER 
P.UNIT == 4 ;UNIT NUMBER 
P.OPCD == 10 ; ENDCODE 
P.FLGS == 11 ;END MESSAGE FLAGS 
P.STS ae i2 ;STATUS 
P.BCNT == 14 ;BYTE COUNT 
; 3.5  ACCESS,COMPARE HOST DATA,READ,REPOSITION, WRITE, - 
5 AND WRITE TAPE MAR” END MESSAGE OFFSETS 
P.POS ss 34 sPOSITION COBJECT COUNT) 
P.TRBC == 40 ; TAPE RECORD 8YTE COUNT 
; 3.6 GET COMMAND STATUS END PACKET OFFSETS 
P.OTRF == 14 sOUTSTANDING COMMAND REFERENCE NUMBER 
P.CMST == 20 ;COMMAND STATUS 
; 3.7 GET UNIT STATUS END MESSAGE OFFSETS 
P.MLUN =2 14 sMULTI-UNIT CODE 
P.UNFL == 16 ; T FLAGS 
P.UNTI == 24 ;UNIT IDENTIFIER 
P.MEDI == 34 sMEDIA IDENTIFIER 
P.FORM <== 40 ; TAPE FORMAT 
P.SPED == 42 ;SPEE 
P.FMEM == 44 sFORMAT MENU 
P.CSVR == 50 ;CONTROLLER SOFTWARE VERSION 
P.CHVR == 51 ;CONTROLLER HARDWARE VERSION 
P.USVR == 52 ;sUNIT SOFTWARE VERSION 
P.UHVR == S53 ;UNIT HARDWARE VERSION 
; 3.8  OP.ONL, OP.AVL AND OP.SUC MESSAGE OFFSETS 
P.MXWR == 44 ;sMAXIMUM WRITE RECORD SIZE 
P.NREC == 50 ;NOISE RECORD 
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sRECORDS SKIPPED 
SET CONTROLLER CHARACTERISTICS MESSAGE OFFSETS 
ss 14 sMSCP VE 
16 ;CONTROLLER FLAGS 
20 ST TIME 
FS 24 ;QUAD-WORD TIME AND DATE 


A 3.2, REPOSITION MESSAGE OFFSETS 

P.TMSK == 20 ;TAPE MARKS SKIPPED 
; 3.10 

P. VRSN 

P_CNIF == 

P.HTMO == 3 

P. TIME 


SEQ 35 


_< <oenne i a att LC LE LOL LL LL! LOL LLL LLL LD ON 


i ei a a 
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GLOBAL EQUATES SECTION 


1550 ; EE EEN eee 

1551 4.0 ERROR LOG LITERALS 

1338 5 NJ ONS ENT NS ON ANS ON BN7 ENS ONS ENS ONS ENS ON NON ON ONS ONIONS ANSON ONION 

1554 ; 4.1 ERROR LOG MESSAGE FORMAT CODES 

1555 000000 FM.CNT == 000000 pd gg ERRORS 

1556 000001 FM.BAD == 000001 sHOST MEMORY ACCESS ERRORS WiTH BUS ADDRESS 

eH 000005 FM.TPE == 000005 | TAPE TRANSFER ERRORS 

1559 4.2 ERROR LOG MESSAGE FLAGS 

1560 000200 LF.SUC == 000200 ;OPERATION SUCCESSFUL 

1561 000100 LF.CON == 000100 ;OPERATION CONTINUING 

156s 1 LF.SNR == 000001 ;SEQUENCE NUMBER REQUEST 
res ; 4.3 TAPE FORMAT FLAG VALUES 
1565 000001 TF.800 == 000001 sNRZI 800 BPI | 
1566 000002 TF .PE 2s 000002 | PHASE ENCODED 1600 6PI 
1567 000004 TF.GCR == 000004 brit CODED RECORDING 6250 BPI | 
> 000010 TF. .BLK == 000010 :6667 BPI | 
1570 ; 4.4 ERROR LOG MESSAGE OFFSETS 

1571 000000 L.CRF 0 ;COMMAND REFERENCE NUMBER 

1572 000004 L.UNIT == 4 try NUMBER 

1573 000006 L.SEQN == 6 SEQUENCE NUMBER 
1574 000010 L.FMT ws 10 F T 
1575 000011 L.FLGS == 11 RROR LOG MESSAGE FLAGS 
1576 000012 L.EVNT == i2 ;sEVENT CODES 

1577 000014 L.CNTI == 14 ;CONTROLLER ID 

1578 000024 L.CSVR == 24 ;CONTROLLER SOFTWARE VERSION 

1579 000025 L.CHVR == 25 ;CONTROLLER HARDWARE VERSION 

1580 000026 L.MLUN == 26 sMULTI UNIT CODE 

1581 000030 L.UNTI == 30 3 T ID 

158 000030 L.BADR == 30 ;B8US ADORESS 

158 000040 L.USVR == 40 ;UNIT SOFTWARE VERSION 

1584 000041 L.UHVR == 4i ;UNIT HARDWARE VERSION 

1565 000042 L.LVL 2s 42 sRETRY LEVEL 

1 000042 L.FMTID == 42 sFORMAT DEPENDENT 

i 000043 L.RTRY == 43 sRETRY COUNT FOR THE CURRENT LEVEL 

15886 000044 L.GPCT == 44 ;GAP COUNT 

1589 000044 L.VSER == an ; VOLUME SERIAL NUMBER 

1590 000044 L.PSTN == 44 ;TAPE OBJECT COUNT 

1591 000050 L.STI ss 50 3;STI INFORMAT 

159 000050 L.FHVR == 50 3F TTER HARDWARE VERSION 

159 000051 L.FSVR == 51 sFORMATTER SOFTWARE VERSION 

1594 000052 L.STS = 52 ;CONTROLLER INTERNAL STATUS 

1595 000053 L.ORVC == 53 ;DRIVE ERROR CODE 

1596 000054 L.OFLG -= 54 ‘ ORIVE STATE FLAGS 

1597 000055 L.TRK ss 55 ;LOGICAL TRACK NUMBER 

1598 000056 L.PBLK == 56 ;sPHYSICAL BLOCK NUMBER 

1599 000060 L.L6LK = 60 sLOGICAL BLOCK ER 

1600 000061 L.CNTO == 61 : Cc TO 

1601 000062 L.CNTi == 62 ; TAPE COUNT 1 

16 000063 L.CNT2 == 63 ;TAPE C 

160 000064 L.ORVS == 64 ;sDRIVE STA 

1604 L.RWST == 66 sREAD/WRITE STATE 

pe 000070 L.OPFL == 70 ;OPERATION FLAGS 


ce 





meee ~ 
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; 4.5 STATUS AND EVENT CODES 

000037 ST.MSK == 37 ;STATUS/EVENT CODE MA 
000040 ST.SUB == 40 3SUB-CODE MUL MULTIPLIER 
000000 ST.SUC == oO : SUCCESS 
000001 ST.CMD == i :; INVALID COMMAND 
000002 ST.ABO == 2 ;COMMAND ABORTED 
000003 ST.OFL == 3 3; UNIT -OFFLINE 
000004 ST.AVL == § pan Lg! A ae 
000005 ST.MFE == S sMEDIA FORMAT ERROR 
000006 T.WPR == 6 ;WRITE PROTECTED 
000007 T.CP == 7 ; COMP ERROR 
000010 ST.DAT == 10 :DATA ERROR 
000011 T.HST == ii sHOST BUFFER ACCESS ERROR 
000912 ST.CNT == 12 :C ER ERROR 
000013 ST.ORV == 13 sORIVE 
000014 ST.FNT == 14 sFORMATTER ERROR 
000015 ST.60T == 15 ;B0T 
000016 ST.1H ss 16 37 MARK 
000020 ST.RDT == 20 CORD DATA TRUNCATED 
c000e1 ST.PQL == 21 sPOSITION LOST 
00002 ST.SEX == 22 ;SERIOUS EXCEPTI 
0000 ST.LED == 23 ;LEOT DETECTED 
000037 ST.DIA == 37 ; INTERNAL ee ae MESSAGE 
000400 ST.ON. == 400 ;UNIT ALREADY ONLINE 
pees 4 EV.LGP == 10 ;LONG GAP ENCOUNTERED 

OST == 50 sDATA SYNC TIMEOUT 

Ev.cTO == S2 ;COMM CHANNEL TIMEOUT 
-SRT = $3 sORIVE COMMAND TIMEOUT 
113 EV.SRI == 113 ;CONTROLLER DECTECTED TRANSMISION ERROR 

0001 .COR == 150 ;CORRECTABLE ERROR 
0001 Ev.I0S == 152 ; INTERNAL INCONSISTENCY ERROR 
00015 SER es 153 ;SOFT ERROR 
000 43 V.HER == 213 ;HARD ERROR 
000 V.URE == 350 ; UNRECORVERABLE DATA ERROR 





wy a panded 


== ee ee ee eee 
i i i i i i i i: in: ae ee eh ee ee ee ee he 


> 








5 SONSENS ONSEN ONION SONI ENIONIONIONIONIONIONI ONION ONIONS ONIONS ONIONS ENON 

; 5.0 LITERALS 

gSENIONS ONSEN ONIONS ENS ONIONS BNI ENS ONION ONIONS ONIONI ENS ENF ONIONS ONF ONSEN 
5.1 





BRE, ft 


: 


eran COMMAND TRANSMISSION 


RESPONSE 
SERROR LOG PACKET RECEIVED 
s INSUFFICIENT CREDIT TO POST COMMAND 
GCS RESPONSE NEVER CAME BACK 







OUT 
; COMMAND RETURNED _IN WRONG SEQUENCE 
sERROR OURING INITIALIZATION 
sILLEGAL COMMAND 


> 











SPONSE HANDLED SUCCESSFULLY 
; SERIOUS EXCEPTION ITION 
iSYSTEM FATAL ERROR ABORT PROGRAM 





A 
iY] 
* 
vi «4 










‘eee tee OWNERSHIP BIT 
sDESCRIPTOR eee 6 a BIT 
S IMMEDIATE COMMAND F 


(RANDOM GE RATOR SE ADDRESS 

25s, 
a Ss 

oe te rma igs 





SEED 
SE 
0 
COUNT 
SET 
SET 





ea 


i 
ee g ALL os DATA P 
ae sWORST CASE HFM MDATA PATTERN 
PAT4 ss a ;AL TERNATING 1‘S AND 0’. 
ee be) s;RANDOM DATA PATTERN 


SEQ 36 


- ———— 


‘Ot Mites 





ew et ESO eR YS Om 


oa 
\ 
4 
4 


o- > Cr? oe? _-** ert a | 7 eer oe > -_- aii in sae 











ees 1 -@ Monday 
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eo” alae 
He.dsoong 


‘ 
i 





: SYSTEM At 


aaecaee a 






8 
SSTATUS MESSAGE 


F 


= 


PASS THROUGH TEST 





SEQ 39 


—— ——— 
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1750 5 SENS ENS ONS ENS ENS ENS ONS ON ONIONS ENS ONIONS ONIONS ONSEN ENS ONSEN ENS ENS ANION 
1751 ; 6. PROGRAM OFFSETS 

+738 5 SENS ENS ENS ENS ONSEN ENON ENS ENS ONS ONIONS ONION ONION EN ONION ONSEN ONSEN 
1 

1754 s Sk TEST TABLE OFFSETS 

1755 000000 CMD == 0. ;COMMAND PRIMITIVE OFFSET 

1756 000001 DATPAT == Re ;DATA PATTERN 

1757 000002 ITMCNT == 2. ;ITEM CBYTE) COUNT OFFSET 

1758 000004 ITRCNT == 2" ; ITERATION COUNT OFFSET 

E+ 000006 TSTSTP == ;sUSED TO STEP THROUGH TEST TABLES 
1761 ; 6.2 PROGRAM COMMAND BUFFER OFFSETS 

1762 000000 CMD Pe 0 :C PRIMITIVE OFFSET 

1763 000502 ITMOFF == a. S ITEM (BYTE) COUNT OFFSET 

1764 000004 OBOFFL == 4. ;LOW ORDER OBJECT COUNT 

1765 000006 OBOFFH == 6. ;HIGH ORDER OBJECT COUNT 

1766 000010 XFERST == 8. ; TRANSFER STATUS 

1767 000012 BUFOFF == 10 :C FER ADDRESS 

1768 000014 PCBSTP == l2. SSTEP TO NEXT SLOT 

ee +4 C00044 PCB3SP == 36. 73 STEPS 

1771 ; 6.3 TMSCP DRIVER BUFFER OFFSETS 

1772 000002 HIADDR 2. ;DESCRIPTOR ADDRESS OFFSET 

1773 177777 CONIOD ss -1. ; COMMAND/RESPONSE CONNECTION TYPE 1.0. 
1774 177776 CRO ss -2. ; COMMAND/RESPONSE CREDIT LIMIT OFFSET 
1775 177774 MSGLEN == -4, ; COMMAND/RESPONSE MESSAGE LENGTH 

1776 000104 ORBSTP == 68. ;RESPONSE | PACKET SIZE CWORDS) 

1777 000050 DCBSTP == 40. ;COMMAND PACKET SIZE CWORDS) 

1776 000170 DCB3SP == 120. 33 COMMAND PACKET SIZE 

eae 000004 DSPSTP == 4. sPORT DESCRIPTOR SIZE 

ef ; 6.4 DRIVE STATUS CODES 

1783 000026 ECCDC ss 26 ;ECC CORRECTION ON DATA BLOCK 

1784 000030 ECCTC dad 30 ;ECC CORRECTION ON A TAPE MARK 

ES 4 000036 ECcCcBC se 36 sCRC ERROR ON ECC BLOCK 


GLOBAL ARE 
GL OBA. 
i 
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; 6.5 LUN TABLE greets 


TKIP 

TXSA es 2 
TKUNIT == & 
CMDSEQ == 6 
SLTUSE == 10 
CMDSSV == i2 
CNUSAV == 14 
COLSAV == 16 
RNUSAV == 20 
ROLSAV == 22 
PATSAV == 24 
LUNFLG == 26 
LEOTFL == 30 
UNDROP == 32 
OBJFDOL == 34 
OBJFOH == 36 
GSTEWR == 40 
GSTERD == 42 
GSTEVA == 44 
GSFTWR == 46 
GSFTRD == 50 
GHROWR == S2 
GHRDRD == 54 
GHRDUA == 56 
GMEDER == 60 
GDCERR == 62 
GCTHWR == 64 
GOTHRD == 66 
GOTHUA == 70 
GCRORP == 72 
GNOERR == 74 
PSTEWR == 76 
PSTERD == 100 
PSTEVA == 102 
PSFTWR == 104 
PSFTRD == 106 
PHROWR == 110 
PHRORD == il2 
PHRDUA == 114 
PMEDER == 116 
PDCERR == 120 
POTHWR == 122 
POTHRD == 124 
POTHUA == 126 
PEDRP == 130 
PNOERR == 132 
GWRBY1 == 134 
GWRBY2 == 136 
GWRBYS == 140 
GWRBY4 == 142 


eS ”— 


SEQ 41 


;IP REGISTER ADDRESS 
:SA REGISTER ADDRESS 
;TMSCP DEVICE UNIT NUMBER 


;COMMAND REFERENCE NUMBER 

;8IT MAP OF RESPONSES RECEIVED 
;COMMAND DESCRIPTOR 

;NEW COMMAND BUFFER POINTER 


Cc 
;NEW RESPONSE BUFFER POINTER 
;OLD RESPONSE BUFFER POINTER 


;DATA PATTERN 

; INITIALIZATION FLAG 

;UNIT LOGICAL END OF TAPE FLAG 
SUNIT DROP COUNT 

;OBJECT COUNT LOW ORDER 

S OBJECT COUNT HIGH ORDER 


;WRITE STATUS ERRCR IN GCR 
;READ STATUS ERROR IN GCR 
;UNIT ACCESS Aide Bey IN GCR 


;SOFT WRITE ERROR 

;SOFT READ ERROR IN GCR 
;sHARD WRITE ERROR IN GCR 
;HARD RE OR IN 


;WRITE MEDIA ERROR IN GCR 
ERROR IN GCR 


CR 
;OTHER UNIT ACCESS ERRORS IN GCR 
gg > Bd WAS DROPPED IN GCR 


;WRITE STATUS ERROR ~ “y 

—— STATUS ERROR IN 

;UNIT ACCESS STATUS ERROR IN PE 
;SOFT WRITE ERROR IN PE 

;SOFT READ ERROR IN PE 

SHARD WRITE ERROR +" * 

;HARD READ ERROR IN P 

;HARD UNIT ACCESS IN Be 


;DATA COMPARE ERROR IN PE 
;OTHER WRITE ERRORS IN PE 
;OTHER READ ERRORS IN PE 

;OTHER UNIT ACCESS ERRORS IN PE 
; TIMES UNIT WAS DROPPED IN PE 
;NO ERROR 


;HUNDREDOS BYTES WRITTEN IN GCR 
; THOUSANDS BYTES WRITTEN IN GCR 
;MILLIONS BYTES WRITTEN IN GCR 
;BILLIONS BYTES WRITTEN IN GCR 


—_— ——- 


-- ——_—we we ee 


MACRO YOS.02 


GLOBAL 

GLOBAL EQUATES SECTION 
1845 000144 
1646 000146 
1847 0001 
1848 000152 
1849 
1850 000154 
1651 000156 
1852 0001 
18653 000162 
1654 0001 
1855 000166 
1656 000170 
1657 000172 
1858 
1859 000174 
1860 000176 
1861 000 
1862 000202 
18663 000204 
1864 C00206 
1865 
1866 000210 
1667 0002 
1868 000214 
1869 000216 
1870 000220 
1871 000222 
1872 
1875 000224 


ee 
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SEQ 42 


;HUNDREDS BYTES READ IN GCR 
; THOUSANDS BYTES READ IN GCR 
;MILLIONS BYTES READ IN GCR 
;BILLIONS BYTES READ IN GCR 


s;HUNDREDS BYTES WRITTEN IN PE 
; THOUSANDS BYTES WRITTEN IN PE 
;MILLIONS BYTES WRITTEN IN PE 
;BILLIONS BYTES WRITTEN IN PE 
sHUNDREDS BYTES READ IN PE 

; THOUSANDS BYTES READ IN PE 
;MILLIONS BYTES READ IN PE 
;BILLIONS BYTES READ IN PE 


;PRIME RANDOM GENERATOR SEED 
s;PRIME RANDOM GENERATOR SEED 
ees RANDOM GENERATOR SEED 


;START OF THIS UNITS RESPONSE BUFFER 
;END OF THIS UNITS RESPONSE BUFFER 
RE DESCRIPTOR RING 


;OFFSET TO NEXT LUN BLOCK 


os 
SSsessSeesss 
ee et ee et ee 
OOxaOU2ulrK-ov@e@ 


—_ et i A. a i CCC LE LL LL LLL LLL LLL LL LL LL LLL LLL LLL LAL LLL LA BLL LEAL _—--=— « 
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ee eee ee eee 
7.0 PROGRAM PRIMITIVES 
NJ BN SBN JENSEN ONS BN ONT ENS ONSEN ONSEN BNS ANS ANS AN ANS AN SAN ANS ANT ANTON 


; 7.1 COMMAND PRIMITIVE LITERALS 
NUL ss 000 


000000 : 

000010 RD =e 010 ;READ 

000011 ROR Be 011 ;READ REVERSE 

000020 WR =e 020 ;WRITE 

000030 CMP == 030 ;COMPARE HOST DATA 

000031 CMR == 031 : COMPARE HOST DATA REVERSE 

000040 ACC == 040 ;ACCESS 

000041 ACR ss 041 ACCESS REVERSE 

000950 SPC Bs 050 ;SPACE RECORDS 

000051 SCR Bs 051 ;SPACE RECORDS REVERSE 

000052 ScD == 052 ;SPACE TO LEOT 

000060 SKP == 060 ;SKIP TAPE MARKS 

000061 SKR =e 061 ;SKIP TAPE MARKS REVERSE 

000062 SKD Be 062 : SKIP TO LEOT 

C00070 SPO 22 070 ;SPACE OBJECTS 

000071 SPR =a O71 ;SPACE OBJECTS REVERSE 

000100 WT™M =e 100 ‘WRITE TAPE MARKS 

000110 ERS =s 110 ; ERASE 

000113 ERI 2 113 ‘ERASE IMMEDIATE 

000120 ERG pa 120 sERASE GAPS 

000130 AVL 22 130 ; AVAILABLE 

000134 AvU 2s 134 ;AVAILABLE UNLOAD 

000140 ONL zs 140 ; ONLINE 

000150 SUC ae 150 SET UNIT CHARACTERISTICS 

000155 SUW ld 155 ;SET UNIT CHARA. W/WRITE PROTECT 

000160 REW ad 160 ;REWIND 

000163 RWI == 163 ;REWIND IMMEDIATE 

000170 INT Bs 170 ; INITIALIZATION 

000200 ABO Be 200 ; ABORT 

000210 Gcs =s 210 ‘GET ge — 

000220 GUS eS 220 ;GET UNIT STATUS 

000230 scc ss 230 ;SET CONTROLLER CHARACTERISTICS 
; 7.2 COMMAND PRIMITIVE MODIFIER LITERALS 

000001 REVBIT == 1 ;sREVERSE MODIFIER 

000002 EQTBIT == 2 ;DETECT LEOT MODIFIER 

000003 IMMBIT == 3 ; IMMEDIATE MODIFIER 

000004 UNLBIT == 4 ; UNLOAD MOIFIER 

000005 WPRBIT == be) ; WRITE PROTECT MODIFIER 


MACRO YOS.02 


et OBaL DA A SECTION 


1 

1S seazes 
1940 002702 
1941 002756 
1942 002760 
1943 002762 
1944 002764 
teas S0a7ee 
ise 

1946 pas $44 
eed 00 Pay 
ist S8e8e 
1 003 

1953 00 

1954 003210 
3 S$ 003212 
956 003214 
19 

1958 00 ai¢ 
1959 003274 
1960 003352 
1 pee at bs 
1 00 

iy Sas 
He S3keds 
196 

1968 

1969 

1970 003442 
1972 003522 
973 003526 


1975 
1976 003536 
1977 003540 


003522 


; 8.1 UNIT LUN BLOCKS 
LUNO: : . WORD 


—$—$— A —— Nm 
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-SBTTL GLOBAL DATA SECTION 


gSENSENS ENS ENS ONSEN ENS ENS ONIONS ONIONS ONS ONION ONS ENS ENS ONS ONION OENIONI ON 
; 8.0 DRIVER A STRUCT Ss 
5 SENS ONS ONIONS ONS ONSEN ONSEN ONIONS ONIONS ONION ONS BNI ONS ENI ONS ONIOENIANI EN 


LUNI: : . WORD 


LUNG: : -WORD 0,0,0 


8.2 PROGRAM COMMAND BUFFERS 
_BLiKW 24. ;PROGRAM COMMAND RING 


PCBEND==. sPROGRAM COMMAND RING END 
DUMPKT: : .BLKW 2. ;PROGRAM DUMMY COMMAND PACKET 
DRINUS: : .BLKW 4. ;DRIVE IN USE TABLE 

; 8.3 PROGRAM VARIABLES 

CMDCNT: : .WORD 0O ;COMMAND COUNT 

RSPCNT: : -WORD 0 sRESPONSE COUNT 


SEQ 44 


eee - 
ee 

—- 

—- — oe 


SEG 45 
-i 
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ctoeAL DATA SECTION 


OMMAND COUNT SAVE 
SEXCNT “WORD 9 : SERIOUS EXCEPTION TEQUNT 
1978 003542 000000 SEXCNT: : “uORD OO gael 
000900 COUNT: : : A * TEMPORARY 
1980 903846 900009 TEMP : : ‘> °° :RESPONSE STATUS 
1982 903582 000000 RESPON: : “WORD 0 OUMOER OF RESPONSES 
198 patter LRP: : a 0 Tee oF antune WRITE/READ MANUAL RETRIES 
1365 $03 aaa T:: - WO ° ; AUTO RETRY COUNTER AUTO RETRIES 
13be oossec ARETRY: : -WORD 0 ;NUMBER OF ACTUAL WRITE/READ 
1387 908364 AUTCNT : “WORD 0 ;SOFT ERROR COUNT 
1989 o03566 SOFTER: : pie : [DeIyeR ResPonse inset 
1 RESP 2: “WORD 0 tT TERATION. COUNT 
1991 003374 BYTES:: WORD oO :1T BUFFER ADDRESS s 
16 SUE ADR: iC FOR DATA COMPARE 
1998 003576 aoe: “WORD 0 ;SUB-ITERATION COUNT FOR 
1994 ooseoe SUBCNT: : cnet mes Mianeii 
1997 Zeos RANI: : SEED WORK LOCATION 
1398 99 RAN2 : : 0 ;SEED WORK LOCATION 
re - NCE 
S001 SAVDIF : : ‘TEST LOAD WITH ACCEPTABLE ERROR CODES 
003614 TSTMSK: : 0 ;USED BY ERROR DECODE 
008620 cy ER OF BYTES IN ERROR sa 
2004 003620 0 TRAVE TABLE FOR BYTE IN ERROR ADOR 
2 003622 7 10. ;END OF BYTE ADDRESS a DATA 
BOT Cvsees ao °° we 10 'SAVE TABLE FOR BYTE I 
5 005650 DATB BLK tte s;PROGRAM CONTROL 
: 0086 dies T COUNTER FOR TEST 2 
010 003674 000000 : ee a OBJEC 1 
PASS COUNTE ‘ 
12 003676 900000 PASCHT ; 3 ;"1ST PASS OF TEST FLAG 
00 000000 PASS1 WORD ;NUMBER OF DROPPED UN 
sO1a 00 : 0 ;COUNT OF UNITS AT EOT 
14 003702 000000 Ro WORD 0 
18 008706 000000 — O {USED FOR TEMP STORAGE 
2016 ai WORD 0 :USED FOR TEMP STORAGE 
Et, eesne ecence WORD 0 ;USED FOR TEMP STORAG 
oO18 oOstiz 090000 R10 mn. % ‘USED FOR TEMP STORAGE 
808716 900000 Riz : ;USED FOR TEMP STORAGE 
908720 900000 WORD 0 
; 003782 000000 sri :SERIOUS EXCEPTION CMD REF @ 
Ft SECRNS : WORD 0 :NUMBER OF RECORDS 
: 000000 CCNT:: WORD ;NUMBER OF TAPE MA 
2025 003724 oc RE S 
008780 000000 ik :DEFAULT TAPE FORMAT CODE (GCR) 
2028 | 00000 FORMAT WORD OO SINITIAL_TEST FORMA 
G98784 Goon0e EVENT: wef oar aes, 
2082 008740 000000 RASAVE WORD 0 {SAVE LOCATION FOR CURRENT COMMAND 
2033 003742 000000 CMDSAV : WORD 
2034 003744 000000 








——————a ee mm 7 
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2035 003746 900000 BYTSAV:: -WORD 0 ;SAVE LOCATION FOR ORIGINAL BYTE COUNT 
Ft +4 003750 000 we ‘J : .BYTE 90 ;NUMBER OF DAYS IN RUN 


SEQ 46 


ee eR eR eee rn nn een ea eae eeeeeeeeeeeeeeeeeeererecsaeessesreeeece esr ——— ee 
~ ~ _ == - 
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5 SENS ENS ONS ENS ONIONS ONS ENS ONS ONIONS ONIONS ONIONS ONIONS ONIONS ONS ONS ONJ ENS ON 
; 9.0 TMSCP CLASS AND PORT DRIVER DATA STRUCTURES 
5 SBN ENS ENS BN ONS ENS ENS ENS ENS ONS ONS ONS ONT ONIONS ONS BNI ANS ANS ANS ONT ONS ONION 


; 9.1 CLASS DRIVER BUFFERS 
CMDBF 1: : .BLKW 2. ;DRIVE COMMAND BUFFER 1 


OCMDEF : : .BLKW 18. ;DRIVER COMMAND BUFFER 

CMDBF 2: : .BLKW 20. ;DRIVE COMMAND BUFFER 2 

CMDBFS: : -BLKW 20. ;DRIVE COMMAND BUFFER ; 

CMDBF4: : -BLKW 20. :DRIVE COMMAND BUFFER 4 

RSPBFO: : .BLKW 2 ;TOP 4 LOCATIONS OF RESPONSE BUFFER UNIT O 
i ;END OF COMMAND FER 

DRSPBO .BLKW 270 ;DRIVER RESPONSE BUFFER UNIT O 

RSPBFi:: -BLKW 2. ;TOP 4 LOCATIONS OF RESPONSE ten UNIT 1 

DRBENO: : ;END OF RESPONSE BUFFER UNIT 

DRSPB1:: .BLKW 270 DRIVER RESPONSE BUFFER UNIT 

RSPBFe: : .BLKW 2. ;TOP 4 LOCATIONS OF RESPONSE BUFFER UNIT 2 

ORBEN1: : ;sEND OF RESPONSE BUFFER UNIT 1 

DRSPB2: : .BLKW 270 DRIVER RESPONSE BUFFER UNIT 5 

RSPBFS:: BLKW z ;TOP 4 LOCATIONS OF RESPONSE BUFFER UNIT 3 
2: ;END OF RESPONSE BUFFER UNIT 2 

DRSPBS .BLKW 270 ;DRIVER RESPONSE BUFFER UNIT 3 


SEQ 47 


SS 





—_ LE TT 
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2067 ; 9.2 U/@ PORT DESCRIPTOR RINGS 
5068 010412 DSRNGO: : “BLKW ;DESCRIPTOR RING UNIT 0 
5069 010416 DRBENS: : ‘END OF RESPONSE BUFFER UNIT 3 
3070 010416 RDSRGO: : BLKW (16. RESPONSE DESCRIPTOR RING UNIT 0 
3071 010456 RDRENO: : SEND OF RESPONCE DESCRIPTOR RING UNIT 0 
_—- 2072 010456 CDSRGO: : BLKW OB. ‘COMMAND DESCRIPTOR RING UNIT 0 
2073 010476 CDRENO: : SEND OF COMMAND DESCRIPTOR RING UNIT © 
| $075 010476 DSRNGI1: : BLKW 2. ;DESCRIPTOR RING UNIT 1 
3076 010502 RDSRGi: : "BLKW O16. RESPONSE DESCRIPTOR RING UNIT 1 
| $077 010542 RORENI: : SEND OF RESPONCE DESCRIPTOR RING UNIT 1 : 
3078 010542 CDSRG1: : BLK OB. COMMAND DESCRIPTOR RING UNIT 1 . 
| $079 010562 CDRENI:: SEND OF COMMAND DESCRIPTOR RING UNIT 1 | 
20861 010562 DSRNG2: : .BLKW 2. ;DESCRIPTOR RING UNIT 2 
3082 010566 RDSRG2: : "BLKW O16. RESPONSE DESCRIPTOR RING UNIT 2 | 
3083 010626 ROREND: : SEND OF RESPONCE DESCRIPTOR RING UNIT 2 | 
3084 010626 COSRG2: : BLKW OB. ‘COMMAND DESCRIPTOR RING UNIT 2 | 
3085 010646 COREN2: : ;END OF COMMAND DESCRIPTOR RING UNIT 2 
3087 010646 DSRNG3: : BLKW 2. ;DESCRIPTOR RING UNIT 3 
3088 010652 RDSRGS: : "BLKW 6. RESPONSE DESCRIPTOR RING UNIT 3 
3089 010712 RDRENS: : SEND OF RESPONCE DESCRIPTOR RING UNIT 3 
3090 010712 CDSRG3: : BLKW OB. ‘COMMAND DESCRIPTOR RING UNIT 3 
2091 010752 CDRENS: : ;END OF COMMAND DESCRIPTOR RING UNIT 3 | 
2093 ; 9.3 CLASS AND PORT DRIVER VARIABLES 
3094 010732 000000 Lostat: ‘WORD 0 ;170 STATUS 
3095 010734 177777 CMSTSV: : "WORD -1 {COMMAND STATUS FROM GCS MODE 
5096 010736 000000 GCSREF : : "WORD 0 ;GCS COMMAND REFERENCE NUMBER 
5097 010740 000000 CNTHI: "WORD OO VALUE OF THE HIGH TIMEOUT 
3098 010742 000000 TIMER: : "WORD 0 TIMER VALUE 
5099 010744 000000 LOOPS: : "WORD 0 ; 
5100 010746 000120 CNTFLG: : "WORD CF.THS!CF.MSC _; CONTROLLER FLAGSCENABLE THIS HOSTS 
3101 ;AND MISCELLANEOUS ERROR LOG MESSAGES) 
3102 010750 000000 PCKSIZ .WORD 0 ;PACKET SIZE IN BYTES 
3103 010752 000000 SAERR: : "WORD 0 ISA REGISTER SAVE ON ERROQ 
3104 010754 000 MINLIM: : "BYTE 0 MINIMUM REQUIRED CREDIT LIMIT 
3105 010755 004 CROLIM: : "BYTE 4 ‘ORIVER CREDIT LIMIT 
2106 “EVEN 
3107 
} 
| 


ee 


NVVUNVNVNVNVANANNNANNNANANNVNNNNMNMNMNNY cacy 


(Oe ie et peat ee ee et 


oo he ee ee he he he pe he 


STS 


ad 
rey 
ae 


AL AREAS 
AL DATA SECT 
09 
10 
11 010756 901 
12 010757 064 
13 0107 000001 
14 010762 012244 
1 010764 013176 
17 0107 001 
18 010767 064 
19 010770 000002 
20 010772 012277 
et 010774 013176 
123 010776 001 
124 010777 064 
25 011000 000003 
26 011002 012317 
: 011004 013176 
129 011006 001 
30 911007 064 
31 011010 000004 
32 011012 012545 
ss 011014 0135176 
35 011016 001 
36 011017 064 
37 011020 
36 011022 012400 
; 011024 013176 
110 001 
011027 064 
0110 000006 
011032 012431 
0110 013176 
0110 001 
011037 040 
011040 000007 
011042 011506 
1044 013176 
1046 001 
011047 040 
011050 000010 
611052 011531 
011054 0135176 
11056 001 
011057 
011060 
011062 011545 
65 011064 015176 
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; I/0 STATUS ERROR INFORMATION TABLE 

; GET COMMAND STATUS FAILED 
GOTHWR 
‘ CMLSER 
-WORD DEVERR 
-BYTE DEVFAT 
.BYTE vero 


; CONTROLLER HUNG 


‘ HUNGER 

-WORD DEVERR 

-BYTE DEVFAT ; PORT DETECTED ERROR 
-BYTE GOTHWR 

.WORD 3 

° PORTER 

-WORD DEVERR 

-BYTE DEVFAT ; PROGRAM DETECTED COMMAND TIMEOUT 
.BYTE GOTHWR 

-WORD 4 

-WORD TIMERR 

-WORD DEVERR 

-BYTE ODEVFAT ; COMMAND SEQUENCE ERROR 
-BYTE GOTHWR 

WORD 5 

-WORD SEQER 

-WORD DEVERR 

-BYTE DEVFAT ; ERROR DETECTED DURING iNIT 
-BYTE #GOTHWR 

. WORD 6 

-WORD INITER 

-WORD ODEVERR 


; PROGRAM DETECTED ERROR INFORMATION TABLE 

CMDT:: .BYTE DEVFAT s INVALID COMMAND ISSUED 
‘BYTE GSTEWR 
"WORD  CMDER 
“WORD  OEVERR 

ABOT:: .BYTE OEVFAT 
"BYTE GSTEWR 
"WORD 88. 
“WORD ABOER 


;COMMAND ABORTED 


. WORD DEVERR 
OFLT:: .BYTE DEVFAT sUNIT OFFLINE 
.BYTE GSTEWR 
. WORD 9. 
. WORD OFLER 


-WORD DEVERR 


OB AL 
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GL AREAS 
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1 
111 


Sa tee Sate ee 
SJsartcuaane 


NRAYNNNYNNANNVNNNNNNVVNNL A 
=z 


SelTFSESNALSSSLEE 


& 88 





SS& FVSh 


Ree ee 


SKSIE LKSSa & 


eee 
> 
fo 


= 


ee ee 


ey en ded ed 
BNSTe 
bes 


oo socoooo scccoo occocooco 
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001 
040 
000012 
011562 
013176 
001 
040 
000013 
012166 
013176 
901 
040 


00001 
612515 
013176 
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te 
ZS ~~ 
~wh 
Kare Au 


oo 
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AVLT:: 


IvSTi:: . 


WPRT:: 


HDATT:: 


HSTT:: 


CNTT:: 


DRVT:: 


FMTT:: 


BOTT:: 


-BYTE 
.BYTE 


44 








SEQ 50 


;UNIT AVAILABLE ERROR 


;INVALID STATUS RETURNED 


;UNIT WRITE PROTECTED 


;DATA COMPARE ERROR 


;HARD DATA ERROR 


sHOST DETECTED TIMEOUT 


;CONTROLLER ERROR 


;DRIVE ERROR 


;FORMATTER ERROR 


;UNEXPECTED BOT ENCOUNTERED 





— 


—_—_——— ee 


- ~- —— ee eee = 


SEQ 51 
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£ te: 
bee Cree 





s;UNEXPECTED TAPE MARK ENCOUNTERED 


E 


al 
_—_ GO LLL LLL, | 


: ; 
fad 

= 
z : 
4 4 
ia 
: S 
<< 
2 é 


sINVALID STATUS RETURNED 


o 
4 
: 
z 
: 


;DATA RECORD TRUNCATED 
; TAPE POSITION LOST 
;SERIOUS EXCEPTION 


;LEOT ENCOUNTERED 





26. 
IVSER 


-BYTE DEVFAT 
BYTE GSTEWR 





IvST3:: 


i a Eg a a aE aE a 
an 


Ragas SARSS SRESE Hahah MARES Sanne 
Ssoee Soooe Soose SESS 


* 


rem BAA ee ee ep ete LA 4 4- Gree ote Ls 4%. «-H- > a + < 
MEADADAS ABAD) slalalabalalatat oy >> reste 4+ 44 4,4, 4, 44,4, 414+ 4+ 4+ 4+ 4+ +4 4 4H H+ 


Reo. eee bh ok ok hl be eh hk un Pan eb en as Cn an a aa a ae ee ee ee ee 





’ 
: 
~ oe ed 


SEQ S2 


mene eS” ee 


s;HOST MEMORY ACCSESS ERROR LOG 


:SOFT DATA ERROR 
;CONTROLLER ERROR LOG 
;TAPE TRANSFER ERROR LOG 
s UNKNOWN ERROR LOG 


al! hd dal aha dha 
Ht Le 








we ek 





ee 
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233° .SBTTL GLOBAL TEXT SECTION 

esea ; COMMAND PRIMITIVE ASCII 

23235 011366 CMDASC: : 

2324 011566 116 125 114 -ASCIZ ?NUL? ; NULL 

2325 011372 122 104 040 -ASCIZ ?RD ? ;READ 

2326 011376 127 122 124 ASCIZ ?WRT? ;WRITE 

2327 011402 103 115 120 -ASCIZ ?CMP? ;COMPARE HOST DATA 

2326 011406 101 103 103 -ASCIZ ?ACC? ;ACCESS 

2329 011412 123 120 103 SPCASC: .ASCIZ ?SPC? ;SPACE RECORDS 

2330 011416 123 113 120 -ASCIZ ?SKP? ;SKIP TAPE MARKS 

2331 1422 123 120 117 .ASCIZ ?SP0? ;SPACE OBJECTS 

2332 011426 127 124 115 -ASCIZ ?WIM? ;sWRITE TAPE MARK 

2333 011432 105 122 123 ASCIZ ?ERS? ;ERASE 

2334 011436 105 122 107 ASCIZ ? ;ERASE GAP 

2335 011442 101 126 114 7AVL? ; AVAILABLE 

2336 011446 117 116 114 ASCIZ ? ? ; ONLINE 

2337 011452 123 125 103 ASCIZ ;SET UNIT CHARACTERISTICS 

2336 011456 122 105 127 ?REW? ; REWIND 

2339 011462 111 116 124 ASCIZ ?INT? ; INITIALIZE 

2340 011466 101 102 117 ASCIZ ; ABORT 

2341 011472 107 103 123 ASCIZ ?GCS? ;GET COMMAND STATUS 

2342 011476 107 125 123 ASCIZ ?GUS? ;GET UNIT STATUS 

2343 011502 123 103 103 ASCIZ ?SCC? ;SET CONTROLLER CHARACTERISTICS 

au ss 


wwwx Atate A LLL LLL 


AREAS 


012572 
012622 
012647 


84 012675 
86 012735 


013146 


ee 
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; 
; FORMAT STATEMENTS USED IN PRINT CALLS 


-ASCIZ 


/INVALID CMD ISSUED/ 
/CMD ABORTED/ 

/UNIT OFFLINE 

/UNIT AVATLABLE ERROR/ 
/UNIT WRITE PROTECTED/ 
7HARD DATA ERROR/ 
/SOFT DATA ERROR/ 

/HOST BUFFER ACCESS ERROR/ 
/CONTROLLER ERROR/ 
/ORIVE ERROR/ 
/FORMATTER ERROR/ 


ON/ 

/LOGI EOT ENCOUNTERED/ 
INVALID STATUS RECEIVED/ 
/HOST DETECTED TIMEOUT/ 
/NO RESPONSE TO GC 


S COMMAND/ 
/CONTROLLER gg of 
/PORT-DETECTED ERROR/ 
/PROGRAM DETECTED CMD TIMEOUT/ 
/RESPONSE OUT OF SEQUENCE/ 
/PORT INIT FAILED/ 
/RECORD LENGTH SHORT/ 


T RROR/ 
?S/W DETECTED DATA COMPARE? 
/TAPE TRANSFER ERROR LOG/ 


LOG/ 
/UNKNOWN ERROR LOG FORMAT CONE/ 


/RETRY RECOVERED READ ERROP/ 
/RETRY RECOVERED WRITE ERROR/ 
/HARD READ ERROR LOG/ 

/HARD WRITE ERROR LOG/ 


/LONG GAP 
/DORIVE ERROR LOG/ 


SEQ 54 


_—— i tL LL TT CL CC LL LLL LLL LLL ALE OL LLL LLL LLL LL LL 


—_—- me a es eae eer ee 
_— —- _—— ee — oe —_-- 
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2410 _SBTTL GLOBAL ERROR REPORT SECTION 
2412 3° 
2413 ;* THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTS AND PRINTX CALLS 
2414 ; THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
2415 ; THAT ASE USED BY THE PRINTS AND PRINTX CALLS. 
2417 
2418 013166 ERRTBL ;GENERIC ERROR TABLE 
013166 LSERRTBL:: 
013166 000000 ERRTYP: : ‘ 0 
013170 000000 ERRNBR: : “WORD 0 
013172 000000 ERRMSG: : “WORD 0 
pen 013174 000900 ERRBLK: : “WORD 0 
2420 013176 BGNMSG DEVERR 
013176 DEVERR: : 
2421 013176 PUSH <RL,RS> ;SAVE R1 AND RS 
013176 010146 MOV Ri, -(SP) ;;PUSH R1 ON STACK 
013200 ¢10546 MOV RS, -C(SP) ; PUSH RS ON STACK 
2422 013202 013703 003740 MOV R3SAVE .R3 ; RESTORE RS 
2423 013206 013704 003742 MOV R4SAVE .R4 :RESTORE R 
2424 013212 116205 000000 MOVE CMD(R2),R5 ;GET THE COMMAND PRIMITIVE 
2425 013216 042705 177407 BIC $177407.R5 :CLEAR MODIFIERS 
2426 013222 006205 ASR RS :THE PRIMITIVE 
2427 013224 062705 011366 ADD @CMDASC RS ;PUT ADDRESS IN RS 
2428 013230 016237 000000 003710 MOV CMDCR2).RB :GET THE PRIMITIVE AGAIN 
3429 013236 042737 177770 003710 BIC $177770.R8 :SAVE THE LAST 3 BITS 
2430 013244 001014 BNE 10$ :BRANCH IF NOT ZERO 
2431 013246 PRINTB #ERROO,RS, TKUNIT(R4) 
013246 016446 000004 MOV TKUNITC(R4), -(SP) 
013252 010546 MOV RS,-CSP) 
3254 012746 015730 MOV @ERROO, -( SP) 
013260 012746 000003 MOV @3,-(SP) 
013264 01 0 
013266 104414 TRAP CsPNTB 
013270 062706 000010 ADD #10,SP 
2432 013274 000513 BR 60$ :GO PRINT THE REST OF THE MESSAGE 
2433 013276 022737 000001 C03710 103: CMP @REVBIT,RE :IS IT A REVERSE ? 
2434 013304 001014 BNE 20$ ;BRANCH IF NOT 
2435 013306 3 PRINTB #€RRO1.RS, TKUNIT(R4) 
013306 016446 000004 MOV TKUNITCR4), -(SP) 
013312 010 MOV RS, -(SP) 
013314 012746 016000 MOV SERRO1, -(SP) 
013320 012746 3 MOV o3,- 
013324 0106 MOV 
326 104414 TRAP CS$PNTB 
013330 062706 000010 ADD #10, SP 
2436 013334 000473 BR 60$ :GO PRINT THE REST OF THE MESSAGE 
2437 013336 032737 000002 003710 203: BIT #EOTBIT.RS :IS IT A DETECT LEOT ? 
2438 013344 001414 BEQ 30$ :BRANCH IF NOT 
2439 013346 PRINTB #ERRO2,RS, TKUNIT(R4) 
0 016446 000004 MOV TKUNITCR4), -CSP) 
013352 010546 MOV RS, -(SP) 
012746 016056 MOV #ERRO2, -(SP) 
013360 012746 000003 MOV @3,-(SP) 


GLOBAL 
GLOBAL 


e4aa 
2445 


2446 
2447 


2448 


2449 


2450 


2454 


AREA MACRO 
ER REPORT SECTION 
013 104414 
013370 062706 900010 
013374 0004 
013376 022737 
13404 001014 
013406 
13406 016446 000004 
013412 010546 
013414 012746 016135 
13420 012746 000003 
013424 01 
013426 104414 
013430 062706 000010 
013434 00043 
013436 022737 000004 
013444 001014 
013446 
013446 016446 000004 
013452 010546 
013454 ¢€12746 016215 
013460 012746 000005 
013464 01 
013466 104414 
013470 062706 000010 
013474 000415 
013476 
013476 016446 000004 
Ot tts 010546 
013 012746 016272 
013510 012746 000005 
013514 010600 
013516 104414 
Ot eass 062706 000010 
ots y 016446 000024 
0135 013746 3700 
013534 012746 016351 
013540 012746 3 
013544 0106 
013546 104414 
013550 062706 000010 
013554 022705 011412 
018 101412 
01 013746 003574 
gis 012746 016421 
013572 012746 0900002 
013576 0106 
013600 104414 
013602 0627 000006 
013606 
013606 016246 000004 
013612 016246 000006 
013616 012746 016461 
013622 012746 000005 
013626 01 
013630 104414 


003710 


30$: 


40$: 


508: 


605: 


70$: 


me ee 
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TRAP 


—_— Cr oo oe - eee —-— < 


CSPNTB 

#10,SP 

60$ ;GO PRINT THE REST OF THE MESSAGE 
@IMMBIT.RS :IS IT A IMMEDIATE ? 

40$ ;BRANCH IF NOT 

#ERROS,RS, TKUNITCR4 ) 


6 ;GO PRINT THE REST OF THE MESSAGE 
@UNLBIT RS ;IS I7 A UNLOAD ? 


50% ;BRANCH IF NOT 
#ERRO4 RS, TKUNITCR4 ) 

TKUNITCR4), -CSP) 

R5, -(SP) 

GERRO4, -C SP) 

@3.-CSP) 


SP .RO 
CS$PNTB 
#10, SP 


GERROS RS, TKUNIT(R4) 
TKUNITCR4), -(SP) 


SP) 
@ERROS, - (SP) 
SP) 


;GO PRINT THE REST OF THE MESSAGE 


TSAVCR4 ) 


vv 
vw PS 


#10,SP 
- aa 
@ERRO7 BYTES 
BYTES, -(SP) 
2, -(SP) 

RO 
CSPNTB 
#6, SP 
rr iats Caps 
#ERR SP) 


;IS IT A DATA TRANSFER ERROR ? 
;NO, DON’T PRINT THE BYTE COUNT 
;PRINT THE BYTE COUNT 


), OBOFFL(R2) 


C$PNTB 


ccna LLL LLL LLL ee 


SEQ 56 


ae 


08 
34 
24 


fi 


2 
463 015714 


Hue 


3 
: 
3 
3 
4 
4 
4 


10 


eeeeaeae 
aA 
Sc coooococooc“coococoooocooooocooe“esocefo 
~ 
S2SueRsEE 


-ove 


AAI 


Pete pee pet eh ee pe eke pet kt pe 
~~ 
2oc0 


2S 


sss 
- 
Noes 


eee ee ee eee 
i fel bb > 
Ste 
°o oS 


$f 


o°° 
yy 
SSSe 


oe 


MACRO 


062706 


001051 
012746 
012746 


144i 


000010 
000200 


003562 
017110 
000002 


000006 
010752 
010732 


000200 
003622 


016611 
000001 


016637 
000001 


000002 
177774 


016675 
000003 


00026 


010732 


010732 


000026 


177774 


90%: 
100$: 


110%: 


PRIPCK: 
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#10,SP 

alana caine 
es 
#ERR18, -(SP) 

2. -(SP) 

SP, 

CSPNTB 

#6.SP 

@INTERR, IOSTAT 

90% 


100$ 

@IOPDRE ,.IOSTAT 
110$ 

SERA tee). 


GERRIO. - (SP) 
a 


sp 
C$PNTB 


RR 
ad La 
= a tlc 


#ERR13,CR1),CRS) 
CR5),-CSP) 
CR1),-CSP) 
MERR13.-CSP) 

$3, -(€SP) 

SP RO 

CSPNTX 

#10,SP 

#4 .R1 


@4,R5 
#4, MSGLENCRS ) 


——— Ee a - 


SEQ 57 


;ARE WE DOING RETRIES ? 
:NO, DON'T PRINT RETRY COUNT 
;PRINT THE RETRY COUNT 


;IS IT A PORT INIT FAILURE ? 
;KEEP GOING IF IT ISN'T 
GO PRINT Cc 


:KEEP GOING IF I 
;PRINT THE SA CONTENTS IF IT IS 


;CLEAR THE ERROR OUT OF THE LOCATION 
;WAS IT AN I/O ERROR ? 
GET OUT I 


;WAS IT A 
;GO PRINT THE ERROR DATA 


;GET Ag 25+ TO RESPONSE PACKET 
;AND A SECOND COPY 

;Ri POINT TO SECOND WORD OF PACKET 
;CHECK THE MESSAGE LENGTH 

;GET OUT IF IT WENT NEGATIVE 


D ji, al WORD 
;ADJUST MESSAGE LENGTH DOWN 2 WORDS 





Ah tS LT LET AG AS LL A A nm 
———eee we 


2462 014110 


463 014112 


464 014116 


2490 0141 


2491 0 


ceo 
Roun 
ft 
Nee 
Pron 


Sa beene 

co 

oS 
cooococooooocoooocoocoococ“oooos“eoescfo 


SSSsuaeesreueeesses 


BEDE RALSR Ra SHEEP HKAAHL RSH 


So 
~~ 
a 
VUuwuu 


eT ed ed ed ed do 
be pe ee 
a mh 


001353 
005737 
001471 
012701 


012746 
012746 


010600 
104417 
062706 
1035737 
001431 


005046 
153716 
005046 


003622 


000001 
017024 
000004 


000012 
003622 


003650 
017051 
000002 
000006 
003622 
020524 
000001 
000004 
002216 


002221 


CMPPRI: 


1$: 


CPRIEX: 


DEVEXT: 
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wee ee -_——— 


SEQ 58 


;KEEP PRINTING TILL ALL DONE 
;WAS THIS A COMPARE ERROR ? 
;GET OUT IF IT WASN'T 

;SAVE R2 

;POINT Ri TO THE BYTE ADDRESS 


) TABLE 
@DATBL .R2 ;POINT R2 TO THE WRITE DATA TABLE 
CMPERR .RS ;LET RS = THE NUMBER OF BYTES IN ERROR 


CSPNTX 

64,SP 
@ERR16,(R1).<B,ONE(R2)>.<B,(R2)> 
CR2), (SP) 

ONE(R2), (SP) 

C ) 


;POINT R2 DATA 
sHAVE WE PRINTED THe WHOLE TABLE ? 
;NO CONTINUE 


;CLEAR THE ERROR COUNTER 


en :IS THE CLOCK ae 
;NO, THEN CAN‘T PRINT TIME 
STINE, <B, HOURS>. <B,MINUTE>, <B, SECOND> 


SECOND, (SP) 
-C(SP) 


— ee ee ere 
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014340 153716 002220 BIS8 MINUTE , CSP) 
014344 005046 CLR -CSP) 
4346 153716 002217 BISB HOURS . (SP) 
014352 012746 920037 MOV @TIME. -CSP) 
014356 012746 MOV » -C(SP 
014362 010600 »RO 
364 104417 TRAP CSPNTF 
014366 062706 000012 ADO #12,SP 
2505 014372 PRINTF @LINE 
014372 012746 020524 MOV @LINE , -CSP) 
014376 pt Eps 000001 #1, m8 SP) 
01 104417 TRAP CSPNTF 
014406 062706 000004 04 ,SP 
Za08 014412 1%: POP <RS,R1> 
2507 014416 EXIT MSG 
014416 000167 . J$ JMP 
014420 L10002-2- 
2508 014422 ENDMSG 
014422 L10002: 
014422 104423 TRAP C$MSG 


- - ees 


— eee ee 


2510 pre + 


0 
2533 014660 
2534 014662 
2535 014670 


177770 


000004 
015730 
000003 


000010 


003710 
003710 


003710 


003710 


003710 


003710 


5$: 


10$: 


iS$: 


208: 
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RS, -CSP) 

R3SAVE .RS 

R4SAVE .R4 

R1i1.R5 

#177407,.RS 

RS 

#CMDASC RS 

R11,R8 

5 (lille RS 

#ERROO RS, TKUNITCR4 ) 
TKUNITCR4), -CSP) 


30 
@REVBIT .RE& 


10$ 
#ERRO1,.RS, TKUNITCR4 ) 
TKUNITCR4 ),-CSP) 


#10,SP 
GEQTBIT,.RS 


15$ 

GERROZ.RS, TRUNTTCR4) 
TRUNITCRA). (SP) 

RS, -(SP) 

GERRO2, -(SP) 

#3, -C(SP) 


CS$PNTB 
#10, SP 


30$ 

eo RB 

@ERROS RS, TKUNITCR4 ) 
TKUNITCR4), -(SP) 

RS, -CSP) 

SERROS, -(SP) 
@3,-(SP) 


—_ 


;SAVE Ri AND RS 


; SAVE THE LAST 3 BITS 


;BRANCH IF NOT ZERO 


:GO aid THE REST OF THE 


:IS IT A REVERSE ? 
;BRANCH IF NOT 


;IS IT A DETECT LEOT ? 


;BRANCH IF NOT 


:GO PRINT THE REST OF THE MESSAGE 
;I1S IT A IMMEDIATE ? 


;BRANCH IF NOT 


:;GO PRINT THE REST OF THE MESSAGE 


;IS IT A_UNLOAD ? 
;BRANCH IF NOT 


SEQ 60 


ic» eeseeeema LLL 


—— ——— «<= + 


a - 
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2536 014672 
9] « 


0 
2537 


2536 


2539 


0 
2544 


2545 


0 
2546 
0 


MACRO Y 


122765 
000137 
013746 
012746 
012746 
010600 
104414 
062706 


016246 


YOS .02 


000004 
016215 
000003 
000010 


000004 
016272 
000003 


000010 


25%: 


30%: 


35%: 
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SEQ 61 


@ERRO4 RS, TKUNITCR4 ) 
TKUNITCR4), -CSP) 


;GO PRINT THE REST OF THE MESSAGE 


30 
@ERROS .RS —’ 


TKUNITCR4), - 
R5, -¢ 

@ERROS, -(SP) 
@3,-(SP) 


C$PNTB 


#10,SP 
GERROG PASCNT ,PATSAV(R4) 
PATSAVC(R4), -(SP) 

PAS wert 


#10,SP 
@FM.TPE,L.FMTCR3) oi IT A TAPE TRANSFER ERROR LOG ? 
35% PRINT I 


THE ERROR LOG PACKET 


PKPRNT 
@ERRO7 BYTES ;PRINT THE BYTE COUNT 


RRO7 


66, 
SERROB OBOFFHCR2). OBOFFL(R2) 
OBOFFLCR2), -(SP) 


OBOFFHCRS): -(SP) 
08, -(SP) 


SP 

@ERLOO,.L.PSTN+2(R3),L.PSTNCRS) 

L.PSTNCR3), -CSP) 

L.PSTN«+2(R3), -CSP) 

#ERLOO, -( SP) 

43, -( SP) 

SP 

#10,SP 

@ERLOL, ,<B,L. TRKCR3)>,<B,.L.LVLCR3)>,<B,L.RTRYCRS)> 
L.RTRYCR3), CSP) 


L.LVLCR3), (SP) 
=¢SP) 


EE TT TT TT TTT 


GLOBAL AREAS 
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0 
2547 
e) 


25468 


2549 


2550 


e] 
2551 01 
0 


2552 


1 
015372 
015376 


me ee ee eee ee t—s—t—‘ NB - 
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012746 


000055 
017174 
000004 


000012 
000056 


bennesrsaass 
-¢ (SP) 
SP'R 
CRPNTX 
#12,SP 
@ERLO2. <B,L.LBLKC(R3)>,L.PBLK(R3) 
L.PBLKCR3 P) 


-(SP) 
L.LBLKCR3);(SP) 
GERLO2, -( SP) 


C$PNTX 
#10,SP 
@ERLOS, <B.L.ORVCCR3 >, <B.L .OFLGCRS)> 
L. :DELGCRS). .CSP) 
L.ORVCCR3), CSP) 
sent 03, -(SP) 


C$PNTX 
#10,SP 
@ERLO4.L. DRVSCR3),<B,L.STSCR3)> 


L.STSCR3).(SP) 
c DRVSCR 3}, -(SP) 
GERLOS . -(SP) 
#3,-(S SP) 
SP ,RO 
C$PNTX 
#10,SP 
@ERLOS, <B.L.CNTOCR3)>, <B.L .CNTICRS)> 
L.CNTiCR3).¢CSP) 
L.CNTOCR3),CSP) 
#ERLOS, -CSP) 
#3, -(SP) 
CSPNTX 
#10,SP 
@ERLO6. <B,L.CNT2(R3)>.L.RWST(R3) 
L.RWSTCR3),-CSP) 


-( SP) 
L.CNT2CR3),CSP) 
oE 06.-(SP) 


#ERLO7, - 
@2,-(SP 


SEQ 62 


GLOBAL AREAS 


———— oe 


MACRO Y 


GLOBAL ERROR REPORT SECTION 


5406 
2553 015412 
2554 0 


2555 015446 


2556 015466 


0 
0 
ie] 
0 
30 
01 
0 
0 
0 
0 


i 
i 
i 
i 
i 
1 
i 
13554 
01 
01 
sie 0 
5 Ol 


000002 
177774 


016675 
000005 


000004 
002216 


——— 


177774 


1$: 


MSGEXT: 


re ee ee ee - 
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;GET Ag he — PACKET 


;AND A SECOND C 

:R1 POINT TO SECOND WORD OF PACKET 
= WE “a POSITIVE ? 

: ® 


#2 .R 

MSGLENCRS ) 
MSGEXT 

a ater? 


04 ,R1 ;GET THE NEXT WORD 
64 ,,R5 :;AND AGAIN 
#4, MSGLEN(R3) ;ADJUST MESSAGE LENGTH DOWN 2 WORDS 
is ‘KEEP PRINTING TILL ALL DONE 
@LINE 
@LINE , -(SP) 
41, -(SP) 

~RO 
CSPNTF 
@4,SP 

:I1S THE CLOCK ENABLED 

is 3;NO, THEN CAN’T PRINT TIME 
at! + na »HOURS>, <B, MINUTE>, <B, SECOND> 





— <r 


aieammennmmenniansl 


eee 
ee tt — a ey a 
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153716 002221 BIB SECOND .CSP) 
153716 002220 BIS MINUTE .CSP) 
7i6 002217 8iS8 § HOURS.( 
beter 020037 MOV @TIME, -(SP) 
012746 HOV es. as? 
107706 000012 ADD Ste SP 
012746 020526 _— ore (SP) 
o1g746 000001 mov #1, =¢sP 
est Y ADD CoPuT 
— 1%: POP <R5,R1> 
000167 euORD | JSUMP 
C02706 “WORD 110003-2- 
' ‘a : aa UNIT: #038A(0)? 
5160¢ o4 1Ot ERROL: rise : STSA-REVSS3SAT/MSCP UNIT: 8038A(0)? 
16C 04 101 ERROZ:: .ASCIZ : ST#A-LEOTSSSSAT/MSCP UNIT: #038A(0)? 
Di 04 101 ERROS:: .ASCIZ : STSA-IMMSSSSAT/MSCP UNIT: * S036A(0)? 
0164 04 101 ERRO4:: .ASCIZ STSA-UNLOSSSSAT/MSCP UNIT: SO38A(0)? 
; 34 04 101 ERROS:: .ASCIZ T UNIT: #038A(0)? 
t 31 04 116 aot : mle . DATA PAT: — (0)? 
Die 04 116 2f . 
1644 re ?SNSAOBJECT CNT : (0)? 
+ é $4 tie ERROD: Reese SSNSADRIVE ERROR CODE : STSTSACH)? 
04 116 ERR1O: : -ASCIZ 0)? 
<3} o4 tie EARLS: ; LASCIZ S6SALOW WORD? 
916675 04 116 ERRI3:: .ASCIZ (0 )8S68068A( 0)? 
04 116 ERRI4:: .#5CIZ 2CABYTESSLOSADATA? 
04 116 e2ClZ faseeeeemueeeenecmics, "oto—maeceseoo 
7081 (Oa 3s “AsctS «TSATOTAL BYTES IN ERROR ; DAN? 
04 116 "ASCIZ ?SONSARETRIES: SD2S8A(D)? 
; } 04 116 :: .ASCIZ ?SNSATAP OBJ CNT: #068068A(0)? 
4 04 116 : .ASCIZ ?SNSATRK SD28ACD) LEVEL: D28A(D) RETRIES: sD2sA(D)? 
1727 116 Sia ; ) PHYS BLK NUM: sD68A(D)? 
$4 116 : ASETS 0 LGS: #038A(0)? 
; 04 116 "ASCIZ ?6NSADRVY STATE: S068A(0) INTERN STATUS s038A(0)? 
; 04 116 .ASCIZ S03SA(0) TAP CNT 1: sO38A(0)? 
; 04 116 -ASCIZ BOSKACO) RO/WR STATE: s068A(0)? 
7 oa tie Meets TENSNEAERROR LOG PACKET? 
17 Oe 116 .ASCIZ ?eONSAe\e/e\e/e a NOY PRESENT #\0/e\e/e8N? 
d20C : 04 116 -ASCIZ ?8NSAe\e/e\e/e TIME SZ28A:SZ28A:8Z28A 6\0/4\0/68NEN? 
aC 04 116 ?ENSAS\s/e\e/e START OF DAY S028A #\2/0\0/s8N? 
Sol7? =a 101 YTE : (D) FILE SIZE: sDsACD)SN? 
2 04 116 ?7SNSAUNIT: SOISA IS AT EOTSN? 
>, vy Fe 04 116 : AT LEOTSN? 
+34 04 116 PENSAR: SO068A R2:S06SA R3:S068A R4:8068A RS: 50608N? 
204 04 116 7SNGNSABYTES X-FERRED: sD5SA(D)sN? 








—————_— TT mm 


RE ON ee APNE Mtr Aes on:58 Paee 21-5 sea 


4g 645 117 780685 380665 3806853580685 3S06EN ? 
O& 116 7M? 
4 116 SZ736A BYPASSEDEN/ 
5 oF 4 116 TESTING IN GCREN/ 
Oe 116 TESTING IN PESN/ 





——_— 2s 


~s 
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G.cee. AREA 
GLOBAL € REPORT SECTION 


ous ;PROT’ _TION TABLE 
2622 020640 “PRO 
020640 Lecortss : 


623 020640 900000 
2624 020642 177777 
2625 020644 177777 
2626 020646 


SEQ 66 


—e oe 


GLOBAL AREAS 
CLOCK HANDLER 


2629 


36 
020702 


020702 
020702 
06 


- ———_— -—- - 
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105037 
052737 


012746 
012746 
0600 


105237 
122737 


002216 
000002 


017763 
000001 


000004 


003674 


002222 


002221 


002220 


002217 


.SBTTL CLOCK HANDLER 


NOCLK: : 


L10005: 


KWHDL: : 


HDLEXT: 
Li0006: 


BGNSRV 


NOCLK 


CLOCK 
@NCLKFL ,.PCFLAG 
@NCLK 


@NCLK, -(SP) 
#1, -(SP) 
SPR 


CSPNTF 
SP 


DAYS 
hale 
DAYS, CSP) 
@DAY, -(SP) 
#2, -(€SP) 

SP .RO 
ag dg 


;CLEAR THE CLOCK ENABLED BIT 
;SET UP NO CLOCK PRESENT FLAG 
;PRINT MESSAGE 


; INCREMENT THE SUB-SECOND COUNTER 
+ IT A a YET ? 


GET 
;CLEAR THE SUBSEC COUNTER 
; INCREMNET THE SECONDS COUNTER 
; INCREMENT THE COMMAND TIMER 
. IT a YET ? 


CLEAR THE SECOND COUNTER 

; INCREMENT THE MINUTE COUNTER 
:I1S IT AN HOUR YET ? 

;NO, GET OUT 

;CLEAR THE MINUTE COUNTER 
A eee THE HOUR COUNTER 
71S IT A DAY YET ? 

;NO, GET OUT 

;CLEAR THE HOURS COUNTER 

s INCREMENT THE DAY COUNT 
;sPRINT END OF DAY STATMENT 


SEQ 67 


as OS 


<a eee a as Rt CE LLL LLL LL LLL LD LLL ELL LL 


GLOBAL AREAS 
SCHEDULER 


2665 


——— 
= me —V10©‘Jezjjwjj#j@qgzszxjpgtstrsstsLa st AE CE LLL LLL LLL LL 


0 
021230 


~ 
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010537 
005001 


012746 
00 


003744 
002074 
002322 
000003 
000020 


020524 
000001 


002114 


003526 
003526 


000010 
010755 


000026 


.SBTTL SCHEDULER 


§ FOSS AEESEKEEEEESEEEEEE 


$ 

SCHEDULER 

Called by : Test N 

:;Calls to : CMMDSQ 

;Outputs EOT Flag. Dropped Flag 


;Register Inputes 
;Registers Used : 
; 


SCHED: : 
MOV RS ,CMDSAV 
CLR Ri 
CLR L$LUN 
MOV @LUNO ,R4 
CMP #3,L$TEST 
BNE i$ 
CMPB #WR,CMDCRS) 
BNE $ 
PRINTF #@LINE 
V SP RO 
TRAP CSPNTF 
ADD #4 ,SP 
i$: BIT @AVB ,DRINUS(R1) 
BEQ 2$ 
BIT #EOT ORINUS(CR1) 
BNE e$ 
MOV #377, SLTUSECR4) 
JSR PC,.PRTCLR 
MOVB #4 ,CROLI 
JSR PC, ar 
JSR PC,RETR 
BIT ORETFLG, Y LUNFLGCR4) 
BNE 1$ 
2s: CMP #6.,R1 
BEQ 3$ 
ADD @UNTSTP,R1 
ADD @#LUNSTP ,R4 
NC L$LUN 
BREAK 
TRAP CS$BRK 
iS i$ 
3$: NOP ; TEMP 
RTS PC 


SEQ 68 


RS (Pointer to command active in table - not used here) 
R4 (Pointer to LUN Block for use by called subs) 


;SAVE THE CURRENT COMMAND 

;SET R1 TO FIST UNIT 

;SET L$LUN TO FIRST UNIT 

;SET R4 TO THE FIRST LUN BLOCK 
;ARE WE IN TEST 3 ? 

;YES, PRINT CINEFEED 

:=IS IT A WRITE COMMAND ? 


;NO, GET OUT 
;PRINT A LINE FEED 


;SEE IF DRIVE IS PRESENT AND _ 
;GET THE NEXT DRIVE IF IT ISN 

;CHECK IF THE ORIVE IS AT EOT 

;GET NEXT DRIVE IF IT IS 


;SET ALL RESPONSE SLOTS TO THE PORT 
GO DO IT 


;CREDITS START AT 4 FOR NEW LUN 
;GO DO THE TEST ON THIS DRIVE 

S CHECK IF WE'RE DOING RETRIES 
;ARE WE DOING RETRIES ? 

;BRANCH IF SO 


;sHAVE WE DONE ALL DRIVES ? 
;GET OUT 

;GET NEXT UNIT 

;SET UP THE NEXT LUN BLOCK 
;GET NEXT UNIT 


;GO DO THE NEXT ONE 
;RETURN 


OE EE EE TT 


e Se ee ere rere ae 


GLOBAL AREAS 
RETRY 


021232 


021276 
021302 
021304 
021306 
021312 
021314 
021316 


1 
021350 


021352 
021356 


021360 
021364 


MACRO YOS.02 


012705 
000240 
000427 
013705 


012705 
000402 


013705 
000207 


003560 


000200 
000001 


000001 
042340 


042616 
003744 


003564 
000001 
000001 
042340 


042616 


003744 


eee 


009026 
003560 


000034 


003564 
000034 
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.SBTTL RETRY 

§ FOSS O6S440E4S46466464484646446 46444 

sRETRY 

Called by : SCHEDULER 

; Inputs pa desig — CMDSAV 


;Outputs :Retr 


sRegister output:R5 CBointer to command active in table) 


sRegisters Used :R4 (Pointer to LUN block) 


a 
RETRY:: 


TST _—e 
BEQ 20$ 
BIS RETFLG, * tialiaecai 
BIT — 
BNE 10 
CMP tS oBUFOLCR4) 
BNE S$ 
MOV #T1iREW,RS 
NOP ; TEMP 
BR 100$ 
5$: MOV @RTSPR1.RS 
NOP ; TEMP 
BR 100$ 
10$: MOV CMDSAV,.RS 
NOP ; TEMP 
BR 100$ 
203: TST ARETRY 
BEQ 100$ 
BIT #1,ARETRY 
BNE 30$ 
CMP #1,O0BJFDOLC(R4) 
BNE 253 
MOV #TiREW,RS 
BR 100$ 
25$: MOV @RTSPR1.RS 
BR 100$ 
30$: MOV CMDSAV,RS 
100$: RTS PC 


;ARE WE DOING MANUAL RETRIES 
;BRANCH IF ah 

iE RETRY FLAG 

TIME FOR "SPACE RECORD REVERSE ? 


‘ BRANCH 


IF NO 
;IS THIS THE FIRST OBJECT ON TAPE ? 
;NO, DO REPOSITION REVERSE 
;YES, SET UP TO DO A REWIND 


;SET UP TO BACK UP ONE RECORD 
;RESTORE FAILING COMMAND 


;ARE WE DOING AUTO RETRIES 

;BRANCH IF NOT 

; TIME FOR rr RECORD REVERSE ? 
;BRANCH IF 

;IS THIS THE FIRST OBJECT ON TAPE ? 
;NO, DO REPOSITION REVERSE 

;YES, SET UP TO DO A REWIND 


:SET UP TO BACK UP ONE RECORD 


f= 3 Mone FAILING COMMAND 


;RET 


SEQ 69 


were - ee ee - . 


er re 


oF 
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OMMAND SEQUENC 
2755 _SBTTL COMMAND SEQUENCER 
aize § O8O64064646260604060406400048 
© 
2738 : COMMAND SEQUENCER 
2760 Called by : SCHED 
2761 :Calls to CMDBLD, Q@CMD, CLSDRV, RSPHOR, UNJAM 
2762 ;Register Inputs: R5 - POINTER TO COMMAND ACTIVE IN TABLE 
2763 ; R4 - POINTER 70 LUN BLOCK 
2764 : 
2765 
2766 021366 CMMDS@: : 
2767 021366 PUSH <R1,R5> ;SAVE R1 AND RS 
021366 010146 MOV R1,-(SP) ;;PUSH R1 ON STACK 
021370 010546 MOV RS, -C(SP) ;;PUSH RS ON STACK 
2768 021372 004737 021764 JSR PC. CMDBLD ;GO BUILD THE COMMAND 
3769 021376 042737 000100 003674 BIC @CMDONE , PCFLAG :GET SET TO START ISSUING COMMANDS 
3770 021404 013737 003576 003536 MOV ITERS, CMDCNT ‘GET THE COMMAND COUNT 
5771 021412 013737 003576 003540 MOV ITERS. RSPCNT ;GET THE RESPONSE COUNT 
2772 021420 ¢12737 177777 010734 MOV @-1,CMSTSV ;RESET THE GCS PROGRESS COUNT 
2774 021426 032737 000040 003674 S53: BIT @GCSRFL,.PCFLAG ;STILL LOOKING FOR A ccs RESPONSE ? 
2775 021434 001023 BNE 15$ ;DON’T QUEUE UP THE NEXT COMMAND 
2776 021436 005737 003536 TST CMDCNT :00 WE STILL HAVE COMMANDS TO ISSUE ? 
2777 021442 001004 BNE 10$ :YES , KEEP GOING. 
2778 021444 052737 000100 003674 BIS @CMDONE , PCFLAG :SET THE ALL COMMANDS ISSUED FLAG 
2779 021452 000414 BR 15$ 
2781 021454 004737 023144 10$: JSR PC, QCMD ;GO QUEUE UP THE NEXT COMMAND 
3782 021460 032737 000002 003674 BIT @NCLKFL ,PCFLAG :IS A CLOCK PRESENT ? 
2783 021466 001003 BNE 13$ ;NO CLOCK, START REGULAR TIMER 
2784 021470 005037 010742 CLR TIMER ;SET TIMER TO O 
2785 021474 000403 BR 15% :GO ISSUE COMMAND 
2786 021476 012737 010000 010742 13s: MOV #10000, TIMER :SET UP THE TIMER 
2788 021504 153: BREAK 
021504 104422 TRAP BRK 
2789 021506 004737 023616 JSR PC, CLSDRV ;CALL THE CLASS DRIVER 
2790 021512 032737 000002 003674 BIT @NCLKFL ,PCFLAG :IS A CLOCK PRESENT ? 
2791 021520 001007 BNE 18$ :NO CLOCK, START REGULAR TIMER 
2792 021522 022737 000171 010742 CMP #121. . TIMER ;HAVE WE TIMED OUT ? 
79 9215 101012 BHI 20$ ;NO, KEEP GOING 
794 021532 005037 010742 CLR TIMER ;SET TIMER TO O 
2795 021536 000414 BR 25$ :YES,SET UP FOR TIME OUT 
2797 021540 005337 010742 18$: DEC TIMER ;DECREMENT THE TIMER 
2798 021544 001004 BNE 20$ ;BRANCH IF NOT 0 
799 021546 012737 010000 010742 MOV #10000, TIMER ;RESET THE TIMER 
800 021554 000405 BR 25% :SET TIME OUT ERROR 
soos 021556 022737 020000 010732 208: CMP @IOICRD, IOSTAT ; INSUFFICIENT CREDITS ? 
2803 021564 001747 BEQ 15% YES, AGAIN 
2808 021566 000425 BR 353 :YES, CHECK IT OUT 
2806 021570 032737 000040 003674 25%: BIT @GCSRFL.PCFLAG ;WAITING FOR A GCS RESPONCE ? 


2807 021576 001412 BEQ 30$ ;NO, SET UP TO DO AG 
2808 021600 042737 000040 005674 BIC @GCSRFL.PCFLAG ;CLEAR THE GCS RESPONSE FLAG 





a EO 





ee em - 
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COMMAND SEQUENCER 
2 021 012737 000004 010732 MOV @IOTIME, IOSTAT ;SET UP TIME OUT ERROR 
2610 021614 004737 034022 JSR PC ,CORDMP ;00 A VARIABLES DUMP 
2811 021620 900240 NOP 
seis ° 021622 7 BR 35$ ;GO REPORT ERROR AND DROP UNIT 
2615 14 oat rt Pe 052737 000020 003674 30%: BIS @GCSCFL,PCFLAG oer THE GCS COMMAND FLAG 
615 osteas 2 052737 003674 BIS @GCSRFL .PCFLAG ;SET THE GCS RESPONSE FLAG 
g0i¢ 02 000721 BR 15$ ;G0 ISSUE THE GCS COMMAND 
2616 021642 022737 060000 010732 35%: CMP ®ERRLOG! IOICRO, IOSTAT ;DID WE GET ERROR LOG got ONLY? 
2619 021650 001406 BEG 40% ;YES - SO BRANCH AROUND NEXT INSTRUCTION 
2620 021652 032737 000140 003674 SIT @CMDONE!GCSRFL.PCFLAG ;HAVE ALL COMMANDS BEEN ISSUED ? 
2621 021660 001002 BNE 40% ;YES, DON'T LET CMDCNT GO NEGATIVE 
28622 021662 337 003536 DEC CMDCNT ge ed THE COMMAND COUNT 
26235 021666 022737 010732 40%: CMP #IONORM, IOSTAT ;WAS IT A NORMAL COMPLETION ? 
2624 021674 001414 BEQ 45$ ;YES , GET 
oes 021676 004737 027706 JSR PC ,RSPHDL ;NO, LETS SEE WHAT IT WAS 
28a 021702 032737 9020000 010732 BIT #IOICRD,IOSTAT ;WERE WE IN RSPHDL FOR ERROR LOG ONLY? 
6 021710 ¢c01275 BNE 15$ ;YES - GO TRY TO POST SAME COMMAND. 
2629 021712 022737 000002 003552 CMP #SEREXC ,RESPON ; WAS IT A SERIOUS EXCEPTION ? 
630 021720 001002 BNE 45$ :NO, CONTINUE 
: 1 021722 004737 033420 JSR PC,UNJAM ;YES, GO UNJAM THE QUEVES 
35 931 7e6 032761 000001 003526 45%: BIT #AVB ,.ORINUS(R1) ;HAS THE = BEEN DROPPED ? 
Pe 0217 pod ad BEQ 50$ : :YES, 
5 021736 005737 003540 TST RSPCNT ;HAVE WE GOTTEN ALL THE RESPONSE BACK ? 
021742 001231 BNE 5$ ;NO, GO BACK TO THE 
Hy 021744 032737 000040 003674 BIT @GCSRFL ,.PCFLAG ;STILL ae FOR A GCS RESPONSE ? 
tt 021752 00122 BNE S$ ;YES, DON’T GET OUT YET 
2640 Oai Tes 50$: POP <R5,R1> ;RESTORE REGISTERS R1 AND RS 
gett 012605 MOV (SP)+,R5 ;;POP STACK INTO R5S 
021756 012601 MOV CSP)+,R1 ;:POP STACK INTO R1 
2641 021760 000240 NOP ;TE 
2642 021762 000207 RTS P ; RETURN 


pmo mee 
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COMMAND R 








BUILOE 
2 ‘ COMMAND 
DoF 5 8OS266664664666 6644466800 464664464 
3 
5648 “legac 
3 
rH ;Called by : CMMDSG 
650 :Calls to : BYTCNT, SELDAT, SELREC 
265 :sRegister Inputs: RS - pointer to test's command table 
2 ; 4 - pointer to LUN BLOCK . 
2eS' sRegister Output: R3 - new pointer for command ring (set to start of ring) 
26 Syne R2 - old pointer for command ring (set to start of ring) 
: 5 ;Registers Used : R3 Pointer to dummy packet before setting to commend ring 
; 
6 
021764 CMDBLD: : 
0 EA 2 032764 000200 000026 BIT @RETFLG,LUNFLGCR4 > ;ARE WE IN RETRY MODE ? 
021772 001005 BNE i$ ;YES DON'T INIT SUB COUNT 
661 021774 012737 000004 003602 MOV oN, SUBCNT ; INITIALIZE THE SUB-ITERATION COUNTER 
os 002 012703 003522 1$: MOV RS ;PUT THE DUMMY PACKET ADDRESS IN RS 
: 022006 116563 000000 000000 MOVB CMDCRS).CMDCRS) ;MOVE THE COMMAND PRIMITIVE TO THE PACKET 
5 0 S36 737 0221530 JSR PC ,.BYTCNT :GO GET THE BYTE COUNT 
0220 013763 0035 000002 MOV BYTES, ITMOFF(R3) ;PUT THE BYTE COUNT IN THE DUMMY PACKET 
667 022026 004737 022246 JSR PC ,SELDAT ;GO GET THE DATA 
: 022032 004737 022712 JSR PC, SELREC ;GO GET THE RECORD COUNT 
© 022036 022737 000003 002114 CMP #3,L$TEST ;ARE WE IN TEST 3 ? 
71 022044 1024 BNE S$ ;YES, PRINT COUNTS 
2872 022046 122765 000020 000000 CMPB @wR ,.CMOCRS) ;I1S IT A WRITE COMMAND ? 
a? 0 Be 001020 ;NO, GET OUT 
740 032764 000200 000026 BIT @RETFLG,LUNFLGC(R4) ;ARE WE IN RETRY MODE ? 
875 0 001014 BNE 5$ ;YES DON'T PRINT COUNTS 
876 022066 PRINTF #COUNTS,BYTES.ITERS ;YES, PRINT BYTE AND ITERATION COUNTS 
0 4 013746 003576 MOV ITERS, -CSP>) 
022072 013746 003574 MOV BYTES, - ) 
022076 12746 020177 MOV OUNTS,-CSP) 
022102 012746 3 ° MOV 03, -(SP) 
022106 att MOV RO 2 
022110 104417 TRAP CSPNTF 
2877 022112 062706 000010 ADD #10,SP 
78 0 3138 012703 003442 S$: MOV @PCMDBF .RS ;PUT THE PROGRAM COMMAND RING ADDRESS IN 
79 122 010302 MOV R3.R2 ;R3 AND R2 
+ 124 000240 NOP ; TEMP 
1 126 000207 RTS ;RETURN 
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-SBTTL BYTE COUNT 


§ SSESSSSESSSSESSSESSSSSESEKSESEEESEE 


; BYTE COUNT 
Called by : CMDBLD 
‘Calls to : RANGEN 


;Outputs BYTES (contains byte or item count to be used for this iteration set) 
Register Inpute: RS - pointer to test c table 
R4 - pointer to LUN BLOCK 
;Register Output: None 
sRegisters Used : None 


2ao 
S8 


B32323322333 


MMP PPOPR POPP PPD 
OOSHOOOOOWO OO 
TAD oe ee ee ee et pe 

eusbuUnrrod 


owo~w 


022130 BYTCNT:: 
022130 005037 003574 CLR BYTES ;CLEAR BYTES 

2134 032764 000200 000026 BIT @RETFLG, LUNFLGCR4) ;ARE WE IN RETRY MODE ? 
022142 ; BEQ S$ ;NO, CONTINUE 
022144 013737 0062746 003574 MOV BYTSAV,BYTES ;sRESTORE OLD BYTE COUNT 
ety 004 BR ;EXIT 
022154 005765 000002 S$: TST ITMCNTCRS) ;CHECK ITMCNT FOR O 
022160 001404 BEQ 10$ ;CONTINUE IF IT IS 0 
022162 016537 000002 003574 MOY ITMCNTCRS) BYTES ;PUT ITMCNT INTO BYTES 
022170 20$ ;EXIT 
0 : 72 122765 000020 000000 10%: CMPB @WR,.CMDCRS) ;IS IT A READ OR WRITE 
0 Need E BLO 20% ;GET OUT IF IT ISN'T 
022202 004737 023010 i5$: JSR PC ,RANGEN ;GO TO THE RANDOM GENERATOR 
022 023727 003604 020000 RANWRD , @MAXBUF :IS THE RESULT WITHIN THE LIMITS ? 
022214 101372 BHI 1 ; BRANCH IF T HIGH 
022216 023727 003604 000024 RANWRD , @MINBUF :1S IT TOO 
022224 10357 BLO S$ ;BRANCH IF TOO SMALL 
Sesess 013737 003604 003574 MOV RANWRD ,BYTES ;PUT RANWRD INTO BYTES 
022 013737 003574 003746 20% MOV BYTES. BYTSAV :SAVE THE CURRENT BYTE COUNT 
022242 000240 ; TEMP 
022244 000207 RTS Pp ;RETURN 


———— 


8 
2939 022246 
2940 246 
2941 022252 
260 


2953 022322 


29 

2955 022324 
2956 022350 

2957 022336 
2958 022340 

2959 


2960 022346 
2961 022352 
2962 


022556 
2963 022560 
2964 
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GLOBAL AREAS 
SELECT DATA PATTERN 


C32764 
001050 
105765 
001445 
105737 
001404 
113764 
000420 


105765 
004 


3 
012764 


032705 


022430 
022444 


000200 
000001 
002255 
002235 


000001 
000001 
000024 
000024 
000001 
003574 
000001 


070614 
000024 


022412 


000026 


000024 


000024 


000010 
000024 


-SBTTL SELECT DATA PATTERN 
| $O666466464660060460060600000040808 


3 

. SELECT DATA PATTERN 
‘Called by 
:Calls to 
: Inputs 

$ 

;Outputs 


; 
sRegister Inputs: 


: CMDBLD 
: RANGEN 


RS - pointer 
; R4 - pointer 
;Registers Used : R3 - pointer 
; R2 - pointer 


: Date Pattern in test command table 
PATSAV in LUN BLOCK if rotating pattern in use 

: Write Buffer “i psee with appropriate date pattern 
PATSAV in LUN BLOC 


K updated to next pattern 
to test command teble 

to LUN BLOCK 

to WRIBUF 

to data pattern 


SEQ 74 


SELDAT:: 
P <R1,R5> ;SAVE Ri AND R5 
BIT @RETFLG, LUNFLGCR4) 1 ARE WE 7 RETRY MOD= ? 
BNE o$ YES DON’T CHANGE DATA 
TSTB DATPATCRS) ‘TEST DATPAT FOR A TEST PATTERN 
BEQ 20% ;BRANCH IF WE DON'T NEED ONE 
TSTB PATERN ‘PATTERN SPECIFIED IN SOFTWARE P-TABLE ? 
BEQ i$ ;NO, KEEP GOING 
a a ;sPUT THE PATTERN IN THE SAVE LOCATION 
1$: TSTB DATPATCRS) ;D0 WE WANT ROTATING DATA PATTERNS ? 
BMI S$ ;IF NEGATIVE GO TO S$ 
MOVB DATPATCRS) ,PATSAVCR4) ;LET PATSAV EQUAL DATPAT 
BR 10$ ; BRANCH 
5$: INC PATSAVC(R4) ;ADD 1 TO PATSAV 
CMP PATSAVCR4), @ENDPAT ; ARE WE AT THE END OF THE PATTERN TABLE ? 
BNE 10$ ;NO, KEEP GOING 
MOV #1. ,.PATSAVCR4) ;AT THE END, LET PATSAV EQUAL 1 
108: MOV BYTES.RS ;PUT THE BYTE COUNT IN R5 
BIT #BITO,RS ;I1S THE BYTE COUNT ODD ? 
BEQ 15$ : BRANCH IF NOT 
INC RS ; MAKE BYTE COUNT EVEN FOR PATGEN 
i5$: MOV #WRIBUF .R3 ;POINT R3 TO THE WRITE BUFFER 
MOVB PATSAVC(R4),R1 ;SAVE PATSAV IN R1 
DEC Ri ;ADJUST FOR TABLE STEP 
ASL Ri ;MAKE IT MOD 2 OFFSET 
JSR PC,@PATTBL(R1) :;GO FILL THE BUFFER 
20$: POP <RS,R1> sRESTORE RS AND Ri 
NOP ; TEMP 
RTS PC ;RETURN 
PATTBL:: 
. WORD PATGN1 ;sALL 1°S 
. WORD PATGN2 ;ALL O'S 


2979 
29680 
2961 
2962 
2963 
2985 

66 
2967 
29668 
29869 


SSSooooooo 

ee es 

OOrtOuUasawlro 
o 


BESNS 


sasecensznets Pir crerrrereretette 


022416 
20 


022430 
022430 


022512 
022514 


022516 

526 
022530 
022532 
] 
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SELECT DATA PATTERN 


022456 
022516 


022532 
022552 
022566 


012725 


162705 
001412 


177777 
000002 


133335 
000002 


155555 
000002 
066666 
000002 


125252 
000002 


023010 
003604 
000002 


167356 
000062 


001000 
133335 
000002 


PATGNi: 


PATGN2: 


PATGNS: 


1$: 


PATGN4: 


PATGNS: 


PATGNG: 


PATGN?7: 


1$: 
3$: 
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#-1,(R3)+ 
#2,R5 
PATGN1 
PC 

CR3)+ 


#2.R5 
PATGN2 
PC 


#133333,(R3)-+ 
: ag 
#155555. (R3)-+ 
@2,R5 


i$ 

9066666, (R3)+ 
#2,R5 

PATGN3 

PC 


#125252,.,(R3)+ 
#2.R5 

PATGN4 

PC 


PC ,RANGEN 


PAT 
PC 


#167356,(R3)-+ 
#2,.R5 


PC 


<R2> 

#512. .R2 
#133333.,(R3)>+ 
€2,R5 


10$ 
@2.R2 
S$ 


TT em = 


;WORST CASE MFM 
A Son DA 1‘S AND O'S 


DA 
$1110 REPEATING PATTERN 


;COMBINATION PAT 3 AND 5 


:;PUT ALL 1‘S INTO THE BUFFER 
;SUBTRACT iWO FROM RS 


; KEEP 
;RETURN 


GOING IF WE AREN'T AT 0 


;PUT ALL_ O'S INTO THE BUFFER 
; SUBTRACT TWO FROM RS 
;KEEP GOING IF WE AREN'T AT O 


;RET 


;PUT THE NUMBER INTO THE BUFFER 
ROM os 


SUBTRACT 1WO FROM RS 
aT GOING IF WE AREN'T AT O 


T THE NUMBER INTO THE SUFFER 


SUBTRACT TWO FROM RS 
;KEEP GOING IF WE AREN’T AT O 


; RETURN 


SEQ 75 


;PUT ALTERNATING 1 AND O INTO THE BUFFER 
;SUBTRACT TWO FROM RS 
;KEEP GOING IF WE AREN'T AT O 


;RETUR 


ee GENERATE RANDOM PATTERN 


THE NUMBER adh THE BUFFER 


:SUBT RACT TWO FROM 


5 
;KEEP GOING IF WE AREN‘T AT O 
TURN 


;PUT 1110 REPEATING IN BUFFER 
;SUBTRACT TWO FROM RS 


;PUT THE NUMBER = BUFFER 


;KEEP GOING IF WE AREN'T AT O 
TURN 


;HAVE WE DONE A 


FULL BLOCK YET 
;YES DO NEXT BLOCK IN PATTERN 5 


eee 





-_ ee eS ee ee 
ee ee eee 
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SELECT DATA PATTERN 


3036 022614 012723 155555 mM #155555. (R3)+ ;PUT THE NUMBER INTO THE BUFFER 
3037 022620 162705 000002 SUB #2.R5 ;SUBTRACT TWO F RS 
3038 022624 001450 BEQ 10% sKEEP GOING IF WE AREN'T AT © 
3039 022626 162702 000002 Sub #2 ,R2 sHAVE WE DONE A FULL BLOCK YET 
BEG S$ ;YES DO NEXT BLOCK IN PATTERN 5S 
3041 022634 012725 #066666 ,(R35)-+ 3PUT THE BUFFER 
000002 @2.,R5 ;SUBTRACT TWO F 
3043 022644 BEQ 10$ ;KEEP GOING IF a? AREN’ T 
162702 000002 SUB #2 ,R2 sHAVE WE DONE A FULL SLOCK YET 
3045 022652 001550 BNE 3$ sYES DO NEXT BLOCK IN PATTERN 5 
3046 022654 012702 001000 3$: MOV #512. ,R2 
3047 022660 004737 025010 6$: JSR PC ,.RANGEN :GO GENERATE RANDOM PATTERN 
013723 003604 MOV RANWRD , CR3)+ ;PUT THE NUMBER INTO THE BUFFER 
3049 022670 162705 000002 SUB #2,R5 ;SUBTRACT TWO FROM RS 
3050 022674 001404 BEQ 10% AVE GOING IF WE AREN‘T AT O 
seas 022676 162702 000002 SUB #2,R2 HAVE WE DONE A FULL BLOCK YET 
022702 001366 BNE 6$ ;YES DO NEXT BLOCK TN PATTERN 5S 
3053 022704 000731 BR 1$ 
3054 022706 10$: POP <R2> 
3055 022710 ©¢00207 RTS PC ; RETURN 
3057 


ae ewe ee ee ee 
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SELECT RECORD 


3059 -SBTTL SELECT RECORD 


3060 : 2026666666 266666666666466646668668 
3061 3 
soe ; SELECT RECORD 
306 
3064 ‘Called by : CMDBLD 
| 3065 :Calls to : RANGEN 
3066 ;Outputs : ITERS (number of iteretions for this set) 
se? iReg' ster Inputs: R5 - pointer to test command teble 
| R& - pointer to LUN BLOCK 
: 
Be 
SELREC: : | 
000026 BIT @RETFLG,LUNFLG(R4) ;ARE WE IN RETRY MODE ? 
BEG 5$ 3NO P GO 
003576 MOV #1, ITERS ;SET THE ITERATION COUNT TO 1 
BR 15% ;GET OUT 
S$: TST ITRCNTCRS ) ‘vane THE ITERATION COUNT | 
BEQ 10% ;sIF IT I8 O T ANCH 
003576 MOV ITRCNTCRS),ITERS SAVE THE ITERATION COUNT 
BR 15% ;GET OUT 
108: JSR PC .RANGEN ;GO0 TO THE RANDOM GENERATOR 
003720 CMP RANWRD , @MAXITR 31S THE ITERATION COUNT TO HIGH ? 
BHI 108 ;GO TRY AGAIN 
000144 CMP RANWRD , OMINITR ‘1S THE ITERATION SET TOO SMALL ? 
BLO 10 :;GO TRY AGAIN 
003576 MOV RANWRD ,ITERS : SAVE THE RANDOM NUMBER 
BR i5$ ;EXIT 
i5$: NOP 3; TEMP 
RTS PC ;RETURN 





———_— wee 
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3093 
3095 


00 
4 ¢ 
+4 
>: 
73 
ra 
+4 
2 
44 
44 
2’ 
44 
+3 





000206 
003606 
003612 
003610 
003606 
003612 
003610 
003610 


003610 
003612 


003606 
003610 
003612 


-SBTTL RANDOM NUMBER GENERATOR 
| SOSSSS6S0666046066800000068 


; 
sRANDOM NUMBER GENERATOR 


3 

sCalled by : BYTCNT, ELDAT. SELREC 

:Inputs : RANI, RaNn2. RANS 

Outputs : 

sRegisters Used : RS 

5 

RANGEN: : 
PUSH <R5> sSAVE RS 
MOV SEEDI(CR4).,. RANI :PUT SEED1 INTO RANI 
MOV R4), ;PUT SEED2 INTO RAN2 
MOV SEED3S(R4), RANS ;PUT SEEDS INTO RANS 
MOV RAN1 RS ;sMOVE THE FIRST SEED INTO RS 
cic ;CLEAR THE CARRY FLAG 
DEC RANS ;DECREMENT THE THIRD SEED 
ROL RS : 
ROL RS : 
ADD RAN2 RS ;ADD THE SECOND SEED TO RS 
MOV RS,RANI ;PUT IT ALL IN THE FIRST SEE 
Add RANS .RS ;PUT THE THIRD SEED INTO RS 
ROL RS : 
ROL RS : 
ADO RAN2 .RS ;ADD THE SECOND SEED TO RS 
ROL RS : 
ROL RS : 
MOV Ey ;PUT IT IN THE SECOND SEED 
MOV RANI, ;PUT THE FIRST SEED INTO RANWORD 
MOV RANI . SEEDI(R4) ;PUT RANI INTO SEEDi 
MOV RAN2 , SEED2(R4 ) ;PUT R INTO SEED] 
MOV RANS , SEEDS(R4) ;PUT RANS INTO SEEDS 
POP <RS> sRESTORE RS 
NOP TEMP 
RIS ss PE” EXIT 
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SUEUE  CORFIARCS cme - 


3131 .SBTTL QUEVE COMMANDS 
313§ § SSASSSSESEESESAEESEEAEEESEESESEAEEDEASD 

1 3 
3133 QUEVE COMMANDS 
3136 Called by : CMMDS@ 
3137 :Calls to : SUBITR 
3136 oe Inputs: R3 - pointer to next slot in ring 
3139 R4 - pointer to LUN BLOCK 
3140 ;Register Output: R3 - updated to point to next available slot 
Stas ;Registers Used : R5 - Points to dummy packet 

: 

3143 
3144 023144 QCMD: : 
3145 023144 022703 003522 CMP #PCBEND,R3 ;I1S R3 POINTING AT THE END OF THE RING ? 
3146 023150 001002 BNE i$ ;NO, THEN KEEP GOING 
3147 023152 012703 003442 MOV @PCMDBF ,R3 ;YES, SET IT TO THE aa BEGINNING 
3146 023156 012705 003522 1$: MOV #DUMPKT ,RS ty eel RS TO THE DUMMY PACKET 
3149 023162 116563 000000 000000 MOVB CMOCRS),CMDCR3) ;PUT THE COMMAND PRIMITIVE INTO THE RING 
sise 023170 ¢16563 000002 000002 MOV ITMOFFCRS), ITMOFFCR3) ;PUT THE ITEM OFFSET INTO THE RING 
3152 023176 004737 023436 JSR PC ,OBCTHD ;GO GET THE OBJECT COUNT 
3153 023202 016463 000034 000004 MOV OBJFOL(R4), OBOFFLCR3) ;PUT THE LOW FIELD INTO THE RING 
3333 623210 016463 000036 000006 MOV OBJFDH(R4) , OBOFFHCR3 ) ;PUT THE HIGH FIELD INTO THE RING 
3156 023216 005037 003600 CLR BUF ADR ;CLEAR THE BUFFER ADDRESS LOCATION 
3157 023222 004737 023246 JSR PC,SUBITR ;GO TO SUB-ITERS 
3158 023226 000400 BR 5$ 
3159 023230 013763 003600 000012 S$: MOV BUF ADR , BUF OFF CR3) ;PUT THE BUFFER ADDRESS INTO THE RING 
3160 023236 062703 000014 ADD #PCBSTP,R3 sMOVE R3 TO THE NEXT SLOT IN THE RING 
3161 023242 000240 NOP ; TEMP 
3162 023244 000207 RTS PC ;RETURN 
3163 .EVEN 


-— ——_———— a ee ——- 


— 


- —$L—— TTT TT TT 


2 
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42 


; 
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.SBTTL SUB-ITERATION 


5 BOSSES KEKEEEEEEEEESEESESLESSE 


; 
; SUB-ITERATION 


$ 
:Called by 


; Outputs 
;Ree) eter Inputs: 


SUBITR: : 


003602 S$: 


360 
050614 003600 10%: 


000020 000000 15%: 


070614 003600 20%: 


000200 000026 25%: 


003602 30$: 
35$: 


: QCMD 
BUF ADR 


eee a se 


——_—_— a ~~ 


SEQ 80 


R3 - pointer to command slot 
R4 - pointer to LUN BLOCK 


CMDCR3) 

35$ 

@wR ,CMOCRS) 
25% 


SUBCNT 


35$ 
@3,LSTEST 


20% 
@WRTBUF -2,BUF ADR 
35$ 


@WR ,CMOCRS) 
06,L$TEST 
10% 

#ACC ,CMDCR3) 
#WRTBUF ,BUFADR 
eee 
ON , SUBCNT 

30$% 

SUBCNT 

SUBCNT 


; TEMP 
PC 


15% 
a 


;ARE WE ISSUING NULL COMMANDS ? 
;BRANCH IF THE NULL COMMAND 

:IS IT GREATER THAN A WRITE 
;YES,. BRANCH 


;SUBTRACT 1 FROM SUBCNT 

;BRANCH IF NOT O 

;PUT LOW ORDER OBJECT COUNT IN WRTBUF 
;REINIT SUBCNT 

;PUT i READ BUFFER ADDRESS IN BUFADR 
;IS IT A WRITE COMMAND 


EST 3 ? 
;NO, SET WRITE BUFFER IN BUFADR 
ae WRITE BUFFER IN BUFADR 


;SEE IF ITS A WRITE 

;YES, BRANCH 

;ARE WE IN TEST 

;YES, PUT READ BUFFER IN BUF ADR 
;SET UP AN ACCESS DATA COMMAND 
;SET WRTBUF ADDRESS IN BUFADR 


;ARE WE IN RETRY MODE 

:NO, GET OUT 

; JUST DO A TRACE RECORD 

;NO,. INCREMENT THE SUB COUNT 
;YES, CLEAR THE SUB COUNT 

: INCREMENT THE SUB COUNT 


;RETURN 


ct tt eC CC LL LL LG CL: 
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OBJET COUNT HANOLER 
3211 .SBTTL OBJET COUNT HANDLER 
3212 5 eRPSEEEEREEEEREEEEEEEDEREEES 
321 : 
3214 ; OBJECT COUNT HANDLER 
3215 3 
3216 :Called by : QCMD 
3217 :Inputs : Current Object Count in LUN BLOCK 
3216 ;Outputs RS poi Ob ject Count in LUN BLCCK 
3219 ;Register Inputs: R pointer to commard slot 
3220 : - pointer to LUN BLOCK 
3221 ; 
3222 
3223 023436 OBCTHD: : 
3224 023436 PUSH <R1> ;SAVE R1 
3225 023440 1163501 000000 MOVB CMD(R3),.R1 ;PUT THE COMMAND PRIMITIVE INTO R1 
| 3226 023444 042701 000007 BIC @7,R1 ;STRIP OFF THE MODIFIERS 
3227 023450 005701 TST Ri ;1S IT THE NULL C 
3226 023452 001456 BEQ 6$ ;EXIT IF IT IS 
3229 023454 022701 000160 CMP @REW.R1 ;I1S IT A REWIND ? 
3230 023460 C01005 BNE 1$ BRANCH IF NOT 
3231 023462 005064 000034 CLR OB JFDL(R4) ;CLEAR THE OBJECT 
2232 023466 005064 000036 CLR OB UF DH(R4 ) ;COUNT FIELD AND 
ett 023472 000446 BR 6$ s;EXIT 
3235 023474 032764 000200 000026 1%: BIT @RETFLG,LUNFLGCR4) ;ARE WE IN RETRY MODE 
3236 0235C2 001012 BNE 2$ ; YES, we ONE OBJECT AT A TIME 
3237 023 022701 000050 CMP #SPC,R1 :IS IT A NON-DATA TRANSFER COMMAND ? 
3238 023510 101007 BHI 2$ ‘BRANCH If IT IS 
3239 023512 022701 000100 CMP @WT™M,R1 ;IS IT A WRITE TAPE MARK ? 
3240 023516 1404 BEQ 2s ;BRANCH IF IT IS 
3241 023520 016337 000002 003710 MOV ITMOFFCR3),R8 ;PUT THE ITEM COUNT IN TEMP REGISTER 
Hot | 023526 BR 3$ ; TINUE 
3244 023530 012737 000001 003710 23: MOV #1,R8 ;PUT A 1 IN THE TEMP REGISTER 
3245 023536 032763 000002 000000 3%: BIT SEOTBIT,.CMDCRS) :IS IT AN LEOT COMMAND ? 
3246 023544 102 BNE 6$ ; T IF IT IS 
3247 023546 032763 000001 9000000 BIT - paateeea CMDCR3) : Cc REVERSE ? 
3248 023554 1 BNE ;BRANCH IF REVER 
3249 023556 063764 003710 000034 AOD R6. OBJFOL(R4 ) ;ADD TEMP TO THE OBJECT COUNT 
32 23564 103011 BCC ;BRANCH IF NO CARRY 
3251 023566 005264 000036 INC OBUFDHCRA) ;OTHERWISE ADD 1 TO THE HIGH OBJECT COUNT 
seae 023572 BR 6$ ; 
3254 023574 163764 003710 000054 4%: SUB R8, OBUFDL(R4) ;IF REVERSE, SUBTRACT TEMP FROM THE 
3255 023602 103002 BCC 6% ;OBJECT COUNT AND BRANCH IF NO CARRY 
32 23604 005364 000036 DEC OB JF DHCR4 ) ;sOTHERWISE SUBTRACT 1 FROM OBJECT COUNT HIGH 
3257 023610 6$: POP <R1> ;RESTORE R1 
3258 023612 000240 NOP ; TEMP 
32°9 023614 000207 RTS PC ;EXIT 


iat aa et ei a CC LL LL LE LLL LL BLL LL DLL LLL LLL LLL, LL 


meee ee — — 
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CLASS DRIVER TRANSMIT ” —_ 


3261 .SBTTL CLASS DRIVER TRANSMIT 
sse% s SOSSAESESSESAKSESEASESESEKEEEEREAEE 
: 
3264 Stans Driver Transmit 
3265 
3266 Called By : CMMDSQ 
3267 :Calls To : CDORECV, STFPCK, PRTDORV 
3268 ;Inputs : CROLIM - Command slots open in the drive. 
3269 3 COLSAV - Old driver command pointer. 
3270 ;Outputs : IOSTAT - Transfer status. 
3271 : CMDSEQ - Number appended to each command packet 
3272 : GCSREF - Get Command Status reference r. 
3275 :Register Inputs: a - - pointer to program command ring. 
3274 = See to program command ring. 
3275 Ra - on lock pointer. 
3395 sRegieter Outputs: RS - Old pointer to driver command ring. 
: 
3278 
3279 023616 CLSORV:: 
3280 023615 PUSH <R3,R5> ;SAVE R3, RS 
3261 023622 016405 000016 MOV COLSAVC(R4),R5 ;POINT R5 TO THE OLD Pre COMMAND 
3282 023626 032737 000040 003674 BIT @#GCSRFL.PCFLAG ;IS THIS A GCS COMMAND ? 
3283 023634 001010 BNE 10$ ;YES, GO SETUP 
3284 023636 022703 003442 CMP @PCMDBF .R3 :1S R3 AT THE BEGINNING OF THE PROGRAM RING ? 
32865 023642 0014 BEQ S$ ;YES, BRANCH 
3286 023644 162703 000014 SUB #PCBSTP ,R3 ;NO, MOVE R3 ONE SLOT BACK 
44 023650 02 BR 10$ ; CONTINUE 
32869 023652 062703 000044 S$: ADD #PCB3SP ,R3 ;YES, ADVANCE R3 TWO SLOTS 
3290 023656 005037 010732 10$: CLR IOSTAT :CLEAR THE I/0 STATUS WORD 
3291 023662 122763 000170 000000 CMPB #INT ,CMDCR3) ;IS THIS A INITIALIZATION COMMAND ? 
see8 023670 1 BNE 15$ ;CONTINUE IF IT ISN'T 
3294 023672 004737 026556 JSR PC, PRTINT ;CALL THE PORT INIT ROUTINE 
3295 023676 0004 BR 55% ;EXIT 
3296 023700 005764 000010 15%: TST SLTUSEC(R4) :DID WE HANDLE ANY RESPONSES LAST TIME ? 
3297 023704 001402 BEQ ;BRANCH IF T 
rte 023706 73 026476 JSR PC,PRTCLR ;G9 CLEAR THE OLD RESPONSES 
3300 023712 737 024064 20$: JSR PC .CDRECV 3;GO CHECK FOR ANY ec ~—s 
3301 023716 105737 010732 TSTB IOSTAT ;IS THE I/0 STATUS O.K 
sso8 23722 001052 BNE 55% ;sEXIT IF IT ISN'T 
3304 3724 032737 000020 003674 25%: BIT #GCSCFL,.PCFLAG ;I1S THIS A GCS COMMAND ? 
3305 023732 001010 BNE 30$ ;YES. GO SETUP MINLIM 
3306 0237 032737 000100 003674 BIT #CMDONE ,PCFLAG 31S THI NULL ND ? 
3307 023742 i BNE 55$ sEXIT IF IT IS 
3308 023744 032763 000200 000000 BIT IMM, CMDCR3) :;I1S THIS AN IMMEDIATE COMMAND ? 
3309 023752 001404 BEQ 35$ ;NO, BRANCH 
3310 0237 112737 000001 010754 30$: MOVB 41,MINLIM ;YES, SET MINIMUM LIMIT TO 1 
ssi3 023762 03 BR 40$ ; BRANCH 
3313 0237 112737 000002 010754 35%: MOVB #2,MINLIM :NO. SET MINIMUM LIMIT TO 2) 
3314 023772 123737 010755 Ci0754 408: CMPB CROLIM,MINLIM O WE HAVE ENOUGH CREDITS ? 
3315 024 103004 BHIS 45$ ‘YES, KEEP GOING 
3316 024002 652737 620000 010732 BIS #IOICRD,IOSTAT ;SET INSUFFICIENT CREDIT IN I/O STATUS 
3317 024010 000417 BR 55$ ;GET OUT 
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GL 
CL es" DRIVER TRANSMIT 


33168 
3319 024012 005264 000006 4S$: 


INC CMDSEQCR4 ) ;ADD 1 ig THE ee. SEQUENCE NUMBER 
3320 024016 032737 000020 003674 BIT @GCSCFL ,PCFLAG :IS IT A GCS COMMAND 7? 
3321 024024 001405 BEQ 50$ ;NO, BRANCH 
335% 024026 016437 000006 010736 MOV CMDSEQ(R4) ,GCSREF ; SAVE THE COMMAND REFERENCE NUMBER 
3324 024034 105337 010755 508: DECB CROLIM ;SUBTRACT 1 FROM THE CREDIT LIMIT 
3325 024040 004737 024342 JSR PC,SiFPCK ;GO FILL THE TMSCP PACKET 
3326 024044 004737 026172 JSR PC ,PRTDRV ;GO SEND THE COMMAND 
3328 024050 010564 000016 SS‘: MOV RS ,COLSAV(R4 ) ;SAVE RS IN COMMAND OLD POINTER SAVE 
3329 024054 POP <R5,R3> ;RESTORE R3, AND RS 
3330 024060 000240 NOP ; TEMP 
3331 024062 000207 RTS PC ; RETURN 


sn a a eae ee a CL LE CC CC CL LOL OT LLL LLL LN LLL LL AN -- 
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MACRO YOS.02 


RECEIVE 


001506 
013737 
022761 

425 


001002 
012705 
016162 
062702 
022702 
001006 
012702 


010736 
027006 


000005 
034022 


010732 


000010 
010732 


000010 
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-SBTTL CLASS DRIVER RECEIVE 
{ RePAEREREESASEEAEEEEDEEERE DEES 


: 
:Class Driver Receive 


$ 
:Called By 
;Calls To 


;Inputs 


; 
;Register Inputs: 
; 


: 
:Registers Used : 


CORECV: : 


S$: 


7$: 


10$: 


153: 


: CLSDVR 
: PDRECV, PRTCLR 
RESP 


SEQ 84 


: - The number of RESPONSEs found. 
GCSREF - Get Command Status reference number. 
RNUSAV - New response buffer save 

CMSTSV - Command progress count. 


ELBSAV - Error log 
R2 - Old pointer 


1 


<R1,R2> 

RNUSAV(R4), Ri 

PC ,PDRECV 

35$ 

RESP , HNOLRP 
#ST.SEX,P.STSCR1) 
P.CRFCR1) 

10$ 

ae sneer eee eee 
ee eam 
PC ,GCSHOL 

35% 

#MISSEQ,IOSTAT 

PC ,.CORDMP 

35$ 

#0P .END,P.OPCDCR1) 


20$ 
@NURESP , IOSTAT 
CROLIM 


#OCBSTP,.RS 
@OCBEND RS 


15$ 

#DCMDBF ,RS 
P.STSCR1),XFERSTCR2) 

@PCBSTP Re 

@PCBEND.R 

25$ 

oPCMDBF ,R2 


buffer pointer. 

© program command ring. 

— to program command ring. 

- lock pointer. 

RS - Old pointer to driver command ring. 
- Old pointer to driver RESPONSE ring. 


te R1,R2 


;sLET R1 = NEW SPONSE BUFFER SAVE 
;CALL PORT DRIVER RECEIVE 

;DID WE GET AR 

;NO, GET OUT 


OF HERE 
;SAVE A COPY FOR RSPHDL 


:IS IT A SERIOUS EXCEPTION ? 
;YES, CONTINUE 
:IS IT AN UNSOLICITED ERROR LOG ? 

;YES, GO HANDLE ERROR LOG 

31S THIS THE COMMAND THAT IS EXPECTED ? 
;YES, CONTINUE 

;I1S IT THE GCS END PACKET 

:NO, GO DO RESPONSE OUT OF SEQUENCE 
Pe GCS HANDLING ROUTINE 


;SET MISSING SEQUENCE IN I/0 STATUS 


;EXIT 


;YES. IS IT AN END PACKET ? 

;NO, GO HANDLE ERROR LOG 

:SET A NEW RESPONSE IN THE I/O STATUS 
;ADD 1 TO THE CREDIT LIMIT 

;ADJUST THE OLD COMMAND POINTER 

:;1S IT AT THE END OF THE RING ? 

;NO, BRANCH 

YES, SET IT TO THE TOP OF THE RING 


;PUT REPSONCE STATUS IN THE —* PACKET 
;ADJUST R2 TO POINT AT THE NEXT SLOT 
;IS IT AT THE END OF THE RING ? 

;NO, BRANCH 

;YES. SET IT BACK TO TOP OF THE RING 


GLOBAL AREAS 
CLASS ORIV 


3390 024262 
53 


306 
3397 024310 
96 


3399 0.4314 
3400 024320 


1 
3402 024322 
024 
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ER RECEIVE 


040000 
003572 
000104 
000212 


000210 
003572 


003572 
000020 


010732 20%: 
25%: 


30$: 


358: 


25$ 
@ERRLOG, IOSTAT 
RESP 


#DRBSTP ,R1 
ens 
URSPBFCR4),R1 
RESP 

S$ 

RESP 
R1,RNUSAVCR4 ) 


<R2,R1> 


; TEMP 
PC 





ee eee 


;BRANCH TO THE END 


;SET ERROR LOG IN I/0 STATUS 


;SUBTRACT 1 FROM THE RESPONSE COUNT 


Ri 
‘IS IT AT THE END OF THE RING ? 


SEQ 85 


;YES, SET IT TO BEGINNING OF THE RING 


sHAVE WE DONE ALL THE RESPONSES ? 
;NO, DO IT AGAIN 


;CLEAR NOW IN CASE WE MADE ERROR 
SAVE T 


EXIT 


HE NEW RESPONSE BUFFER POINTER 


RESTORE R 
;RETURN 


2,R1 


- —————— 


Conn 


$3 ar 


SSSSSSSSSSSSS SSS 


ss 
2. 


we 
> 
Ut Ua 
°o 


44 


$s 
ber 


3448 
9 


SUSSS een eee ee a 
°o ©o o 


024416 


ee 


3 
052761 
032764 
001406 
052761 
042764 


116302 
006202 


019750 


177701 
000046 


026044 
024544 


-SBTTL COMMAND STUFFER 
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MES OrreER _ 


5 BOS664666046060406644606064606464604 
3 

; Stuff TMSCP Command Pecket 

3 

:Called By 


; Inputs 


;Outpu ts 
ealatur route: 


; 
sRegisters Used : 
STFPCK:: 


5$: 


10$: 


15$: 


- Flag 


CNUSAVCR4),.R1 
eo ope it*t! CRFCR1) 


P.CRF 


+2(R1) 


TKUNITCR4).P. UNITCR1) 
P.UNIT+2(R1) 


P.MODCR1) 
@GCSCFL ,PCFLAG 


5$ 
GCMDST 


Se stat)” .BCNTCR1) 


CR1 


$177770,R8 
#REVBIT RES 


10$ 
@MD .REV,P.MODCR1) 
e— » LUNFLGCR4 ) 


P.MODCR1) 


@MD .CS 

@SEREXC ,LUNFLGC(R4) 
CMOCR3).R2 

R2 


20$ 


Re 
@tC76,R2 
#46 .Re2 


ILCMD 
@CMDTBL(R2) 


Cc 
ACCESS 
SPCREC 


SEQ 86 


Points to aout Sret in oe driver seamen ring. 


to each c 


r appende ket 
Get Command Status reference SS ee 
set non-zero on occurrence of a serious exception. 
Length in bytes of the command packet. 
inter to program command ring. 
lock pointer. 
pointer to driver command ring. 
pointer to driver command ring. 


;SAVE Ri AND R2 
; CLEAR PACKET Te oe 
;LET Ri EQUAL THE NEW COMMAND POINTER 
;PUT COMMAND SEQUENCE NUMBER INTO PACKET 
;CLEAR THE UPPER 
HE UNIT NUMBER INTO THE PACKET 

R WORD 


: TINUE 
:YES, GO DO A GET COMMAND STATUS 


;sPUT THE BYTE COUNT INTO THE PACKET 
;CLEAR THE UPPER WORD 

;PUT THE PRIMITIVE IN R8 

;GET JUST THE MODIFIERS 

;IS THE COMMAND A REVERSE ? 

;NO, BRANCH 

YES, SET REVERSE IN THE MODIFIER - TELD 


sIS IT —— EXCEPTION CONDITION ? 
; 

;YES, SET CLEAR SERIOUS EXCEPTION 
;CLEAR SERIOUS EXCEPTION FLAG 


;PUT THE COMMAND PRIMITIVE INTO R1 
; 


: 

;ADJUST FOR THE CASE STATEMENT 
E WE IN THE RANGE ? 

;YES, KEEP GOING 

NO. HANDLE AN ILLEGAL COMMAND 


oe = oe es - 


GLOBAL AREAS 


COMMAN) STUFFER 


34€5 
3466 


See eeeess 


33 


350 


024720 


024724 
024732 
024740 


MACRO YOS.0c 


012761 
012737 
000137 


012761 
005061 


016161 
005061 


026140 


000010 
010750 
000012 


000012 
000010 
010750 
000012 
000012 
000010 
010750 


000010 
010750 
000010 
003710 
000012 
010750 
000010 


000020 


003710 
000012 


NULL : 
READ: 


i$: 
WRITE: 


i$: 


CHODAT : 


ACCESS: 


SSSSSSSS0EE 


SaBahS8 IASAESS 3 55 


48 


SPCREC: MOV 


70$: 


SKPTMK : 
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GCMOST 
GUNS 
SCNTCH 
COMEXT 

#0OP .RD,P.OPCOCR1) 


#34 ,PCKSIZ 
@MD .SER,P.MODCR1) 
ETRY 


1$ 
@MD.SER,P.MODCR1) 
BUFDSC 


@OP .WR,P.OPCDCR1) 
$34 ,PCKSIZ 

@MD .SER,P.MODCR1) 
ARETRY 


1$ 

@MD .SER,.P.MODCR1) 
BUFOSC 

#OP .CMP ,P.OPCDCR1) 
#34 ,PCKSIZ 

BUFDSC 

@#0P .ACC ,.P.OPCOCR1) 
#20 ,PCKSTZ 

SUPRES 

@CP .REP, "oe hailed 


sEOTBIT. R8 


oMD. DLE ,.P .MODCR1) 
024 ,PCKSIZ 
SUPRES 


#0P .REP ,.P.OPCOCR1) 
P.BCNTCR1),P.TMGCCR1) 
P.TMGC+2(R1) 

P .BCNTC(R1) 

eo 


100 
@MD .OLE.P.MODCR1) 


| ere ee ne 


SEQ 87 


;EXIT 


;PUT THE READ OPCODE INTO THE PACKET 
sPUT THE PACKET SIZE INTO THE PACKET 
;DISALLOW AUTO RETRIES 

;ARE WE oy AUTO RETRIES ? 


:NO, GET 
;ALLOW AUTO RETRIES 
;GOTO THE BUFFER DESCRIPTOR ROUTINE 


;PUT THE WRITE OPCODE INTO THE PACKET 
;PUT THE PACKET SIZE INTO THE PACKET 
;DISALLOW AUTO RETRIES 

; ARE Re AUTO RETRIES ? 


;NO, GE 
;ALLOW AUTO RETRIES 
;GOTO THE BUFFER DESCRIPTOR ROUTINE 


;PUT COMPARE HOST DATA OPCODE IN PACKET 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE BUFFER DESCRIPTOR ROUTINE 


;PUT THE ACCESS OPCODE INTO THE PACKET 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTC THE SUPPRESS ROUTINE 

;PUT REPOSITION OPCODE INTO THE PACKET 
;CLEAR THE TAPE MARK COUNT 


;CLEAR THE UPPER WORD 
:IS THE DETECT LEOT BIT SET ? 


;NO, CONTINUE 

;YES, SET DETECT LEOT IN THE MODIFIER 
PUT THE PACKET SIZE INTO THE PACKET 

;GOTO THE SUPPRESS ROUTINE 


;PUT THE REPOSITION he IN PACKET 
;PUT THE TAPE MARK COUN Hy N PACKET 


HE T 
;CLEAR THE UPPER WORD 
;IS THE DETECT LEOT BIT SET ? 


ONTINUE 
sYES, SET DETECT LEOT IN THE MODIFIER 





3578 


025210 
025216 
025224 


4 0252 
025242 


025246 
025254 
025262 


025266 
+ £4 Bes 
025302 
025304 
025312 
025320 


02 
025450 


MACRCG Y0S.02 


012737 
000137 


012761 
052761 
005061 
005061 
932764 
001403 
012761 
012737 
000137 
012761 
052761 
012737 
000137 


012761 


012761 
012737 
000137 
012761 
022737 
001405 
052761 
012737 
000137 


012761 
00 


0000 

026110 
000045 
000004 


000100 
000014 
026140 
000026 
000014 
026140 
000010 
000004 
000020 
000014 
026140 


eee ee 


010750 


000010 
000012 


000010 
010750 


000010 
003710 
000012 
010750 


000010 


100$: 


SPCOBJ: 


i$: 


MOV 
JMP 


WTAPMK: MOV 


ERASE : 


20%: 


ERASGP : 


AVALAB: 


10%: 


ONLINE : 


SUNCHR : 
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€24 ,PCKSIZ 

SUPRES 

#0P .REP .P.OPCDOC(R1) 
onMp. OBC .P .MODCR1) 
P. TMGC(R1) 
P.TMGC+2(R1) 
es 
#1,P.BCNTC(R1) 

#24 ,PCKSIZ 


@OP .WTM,P.OPCOCR1) 
MODCR1) 


@OP .ERS,P.OPCOCR1) 
er RS 


@MD .IMM,P .MODCR1) 
#14, PCKSIZ 

COMEXI 

@OP .ERG,P.OPCDCR1) 
#14 ,PCKSIZ 

COMEXT 

#OP .AVL,P.OPCDCR1) 
@UNLBIT RS 

10$ 

OMD .UNL ,P .MODCR1) 
#14, PCKSIZ 
COMEXI 


sgt ONL .P .OPCDCR1) 
P.UNFL-2(R1) 


044, PCKSIZ 
COME XI 


gt SUC .P.OPCD(R1) 
L-2(R1) 


P UNFL +6(R1) 


a eC; 


SEQ 88 


~ THE PACKET SIZE INTO THE PACKET 
;GOTO THE SUPPRESS ROUTINE 


;PUT THE REPOSITION OPCODE IN PACKET 
;SET THE OBJECT BIT = THE MODIFIER 
cote MARK FIELD 


BRANCH IF 

;SET UP TO DO 1 RECORD 

;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE SUPPRESS ROUTINE 


;PUT WRITE TAPE MARK OPCODE IN PACKET 
Pe SET CLEAR SERIOUS EXCEPTION 

T THE PACKET SIZE INTO THE PACKET 
‘GOTO THE EXIT 


;PUT THE ERASE OPCODE INTO THE PACKET 
:;IS THE — BIT SET ? 
YES, SET IMMEDIATE IN THE MODIFIER 

T THE PACKET SIZE INTO THE PACKET 
OTC THE EXIT 


;PUT ERASE GAP OPCODE INTO THE PACKET 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


;PUT AVAILABLE OPCODE INTO THE PACKET 
;IS THE UNLOAD BIT SET ? 

; ONT INUE 
:YES, SET UNLOAD IN THE MODIFIER FIELD 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


;PUT THE ONLINE OPCODE INTO THE PACKET 
;CLEAR THE UNIT FLAG FIELD 


;CLEAR THE oe ee PARAMETER FIELD 
TAPE FORMAT INTO THE PACKET 

;CLEAR THE SPEED FIELD 

;PUT THE att SIZE INTO THE PACKET 

;GOTO THE E 


;SET UNIT CHARA. OPCODE INTO THE PACKET 
;CLEAR THE UNIT FLAG FIELD 


GLOBAL AREAS 
COMMAND STUFFER 


3579 025454 
3580 


: 
‘ 


Snenttsis 
Sooo So 


710 


gaeesenssssssssss 
ee 
VM OVeS~AQUSUNFO 
oo 
S555 & 
SERRE 4 
Sone MSO 


a2 


e 
Ee 
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61 
022737 
003 


012761 
016561 
506 


012737 
000137 
012761 
016561 
005061 
012737 
042737 
000137 
012761 
042761 
012737 
000137 


012761 
005061 


0 
026140 
026162 
000001 


010750 


REWIND: 


INIT: 
ABOR : 


GCMDST: 


GUNSTA: 


SCNTCH: 


5$: 


P .UNFL+10(R1) 


PM 

FORMAT .P.FORM(R1) 

P. SPEDCRi) 

044, PCKSIZ 

COMEXI 

@OP .REP.P.OPCD(R1) 

@MD. CSE! 

CIMMBIT.RE RB 

_IMM,P.MOD(R1) 
Ri) 


EQCR4) 
eee Hes? 
EXIT 
et ABO.P. ga? 

P.CRFCRS).P.OTRFCR1) 


P_OTRF +2(R1) 
#20, PCKSIZ 
COMEXI 
Pr. OPCOCR1I) 

P. p-cRPCRS), gp sOTRFCRL) 
#20, PCKSIZ 
@GCSCFL ,PCFLAG 
COMEXI 
#0P .GUS,P.OPCD(R1) 

SE .P.MODC(R1) 


@MD . 
#14 ,PCKSIZ 
COMEXI 


i Taal 


sPUT 
MD .RWD,P.MODCR1) er THE REW 


SEQ 89 


:CLEAR THE DEVICE PARAMETERS FIELD 
BUT THE TAPE Al INTO THE PACKET 
; 


THE SPEED FIELD 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


THE REPOSTITION OPCODE INTO PACKET 
IND MODIFIER 
Fe, Me IMMEDIATE BIT SET 


INUE 
MES. SET THE IMMEDIATE MODIFIER 
;CLEAR THE TAPE MARK 


; COUNT FIELD 

emesis Lin A te COUNT 

;PUT THE PACKET SIZE INTO THE PACKET 
;RESET T OMMAND SEQUENCE NUMBER 


HE C 
;CLEAT THE EOT PRINT FLAG 
;GOTO THE EXIT 


;EXIT 


;PUT THE ABORT OPCODE INTO THE PACKET 
;PUT THE OLD CRN INTO THE PACKET 
;CLEAR THE UPPER WORD 

;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


sPUT GCS OPCODE INTO THE PACKET 

PUT THE OLD CRN INTO THE PACKET 
;CLEAR THE UPPER WORD 
;PUT THE PACKET SIZE INTO THE PACKET 
;CLEAR GCS COMMAND MODE ? 
;GOTO THE EXIT 


;PUT THE GUS OPCODE INTO THE PACKET 
;CLEAR CLEAR SERIOUS EXCEPTION MODIFIER 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


;PUT THE SCC OPCODE INTO THE PACKET 
;CLEAR THE UNIT NUMBER 

;PUT THE MSCP VERSION INTO THE PACKET 
;PUT sem ie FLAGS INTO THE PaCKET 
;PUT THE HOST TIMEOUT INTO THE PACKET 
;CLEAR THE TIME FIELD 

; 

: 


;CLEAR THE FIRDT WORD 

;CLEAR THE SECOND WORD 

;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 





EE A  <cm ee eee 


en 
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COMMAND STUFFER Aug ge 


3636 
3637 026044 052737 000007 610732 ILCMD: BIS @ILLCMD, IOSTAT ;SET ILLCMD IN THE I/0 STATUS 
sese 026052 000137 026162 JMP EXIT ;GOTO THE ERROR EXIT 
3640 026055 016361 000012 900020 BUFDSC: MOV BUFOFFC(R3).P.BUFFC(R1)  ;PUT THE BUFFER ADORESS INTO THE PACKET 
3641 026064 005061 000022 CLR P .BUFF +2(R1) ;CLEAR THE REST OF THE BUFFER FIELD 
3642 026070 005061 000024 CLR P .BUFF +4(R1) : 
36435 026074 005061 000026 CLR P.BUFF «6(R1) ; 
3644 026100 005061 9000350 CLR P .BUFF +10(R1) : 
3645 026104 005061 000052 CLR P .BUFF +12(R1) ; 
3647 026110 105737 002224 SUPRES: TSTB SERCOR :;IS SUPPRESS ERROR CORRECTION ENABLED ? 
se49 oest 001003 BNE 105% sNO 
6 761 001000 000012 8IS #0 ..SEC,.P .MODCR1) ;YES. SET SEC MODIFIER 
3650 0261 105737 002225 105¢: TST8 SERREC :;1S SUPPRESS ERROR RECOVERY ENABLED ? 
3651 Saet 001003 BNE CC xI sNO 
se 132 052761 000400 000012 BIS @MD .SER,.P.MODCR1) ;YES, SET THE SER MODIFIER 
36 Ht ery 062701 000050 COMEXI: ADD #OCBSTP,.R1 ;SET THE POINTER TO THE NEXT SLOT 
3655 144 C22701 004216 CMP @OCBEND.R1 ;ARE WE AT THE END OF THE RING ? 
026150 BNE 110% NO, EXIT 
pert 012701 003756 MOV @OCMDBF ,R1 sYES, SET THE POINTER TO START OF RING 
1 000014 110$: MOV R1, CNUSAV(R4 ) ;SAVE THE POINTER 
3660 026162 EXIT: POP <R2,R1> sRESTORE Ri 
sees 026166 000240 NOP al 
026170 000207 RTS Cc ; RETURN 


—_=— EE | 
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Se CRIVER TRANSMIT “eg _ 


aris: 


> 


nd BA ed od ad 
SAA 


~avs~ 


177776 
177777 
177774 


-SBTTL PORT DRIVER TRANSNIT 


jf SSSSSSSESESSESSSSSASSSSSSSSEEEESE 


$ 
sPort Driver Transmit 


Called By : Shossv Command desc t t 
& - riptor ri inter. 
; CROLIN - - Driver Fa math gy ot oo 

; CROL 





;Register Sates 
sRegisters Used : R2 - Pointer to oe commend ring. 

: Ri - Pointer to driver commend descriptor ring. 
s 


PRTDRV : 


<R3,R2,R1> 
CNUSAV(R4),.R2 
CMDSSV(R4).R1 
@NCMDBF , R2 









sagannagaae Sgggage 


—_— —— — = 


on Ry oy er. 
° in the driver Sanene ring. 
the command pecket 


SEQ 91 





1%: 
S58: 
TST 
108 
BIS @IOPORE , IOSTAT 
10%: ADO @O0SPSTP ,R1 sADVANCE | THE DESCRIPTOR POINTER 
CHP UCDEND(R4),R1 ;ARE WE AT END OF THE DESCRIPTOR RING 
BRE ie ;NO. BRANCH 
MOV UCDSRG(R4).R1 YES. SET POINTER TO START OF THE RING 
iS$: MOV R1, CMOSSV(R4) :SAVE THE POINTER 
POP <R1,R2,R3> ;RESTORE R1, R2 AND R3 
NOP TEMP 
ATS PC : RETURN 


L on oe - 


mae + 


-—_ 


-—— —- —- 
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026352 


026366 
026372 


026424 
026432 
026434 


264 
026440 
026446 


026474 


MACRO YOS.02 


016401 
017437 
005737 
100003 
052737 


000240 
000207 


010752 
000003 


000010 
000040 


003572 


100000 
003572 
000001 
000001 
000004 
000216 


a 


010752 


010732 


003674 


000002 


000010 


000010 
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-SBTTL PORT DRIVER RECEIVE 
| SRRESASESERESEREASEESAEES HOREEE 


$ 

:sPort Driver Receive 
3 

;Called By 


; Inputs 


; 
;Outputs : 
sRegisters Used : 


PDRECV:: 


i$: 


2s: 


S$: 
10$: 


: CDRECV 


—_— — = -_- ~_-- 


SEQ 92 


: URDSRG - RESPONSE descriptor ring. 


<Ri> 
URDSRG(R4),R1 
ATKSACR4),SAERR 
_— 

#IOPDRE ,IOSTAT 


SLTUSECR4 ) 
#GCSRFL,PCFLAG 


2s 

RESP 

S$ 

+ a atscet eens 


RESP 
oB ITO, SLTUSECR4 ) 
10$ 


#B ITO, SLTUSECR4 ) 
#DSPSTP.R1 
URDEND(R4),R1 


1$ 
<R1> 
; TEMP 
PC 


UCDSRG - Command greer es or ring. 
RESP - Number of new RE 
Ri - RESPONSE descriptor ring pointer. 


SPONSEs. 


;SAVE R1 

;SET R1 TO THE RESPONSE DESCRIPTOR 
;SAVE THE SA FOR THE ERROR PRINTOUT 
;READ \y ® SA REGISTER 

;BRANCH IF NO ERRORS 

;SET PORT DETECTED ERROR IN I/O STATUS 


;SHIFT BITMAP 

;ARE WE IN GCS MODE ? 

;NO, DO ALL RESPONSES 

;HAVE WE GOTTEN A RESPONSE ? 

;YES, GCS MODE ALLOW ONLY 1 RESPONSE 


;IS THE SLOT SET TO US ? 


;NO , BRANCH 
;ADO 1 TO THE RESPONSE COUNT 
;SET SLOT-IN-USE 


;ELSE CLEAR THIS SLOT-IN-USE 

;SET THE POINTER TO THE NEXT SLOT 
;ARE WE AT THE END OF THE RING ? 
;NO, KEEP GOING TILL WE GET THEM ALL 
;RESTORE R1 


; RETURN 


— mm rc ES -_— —_— — 
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3751 .SBTTL PORT DRIVER CLEAR 

Se fs ROSESEEEKASASEAEESEERESEEEREES 

3 : 

3754 :Port Driver Clear 

3755 ; 

3756 :Called By : CORECV 

3757 ;Register Inputs: R4 - Lun block pointer. 

273s :;Registers Used : R1 - Current location in the RESPONSE descriptor ring. 
; 

3760 

3761 026476 PRTICLR:: 

3762 026476 PUSH <R1,R2> ;SAVE Ri AND R2 

3763 026502 016401 000216 MOV URDEND(R4),R1 ;R1 = END OF RESPONSE DESCRITOR RING 

3764 026506 016402 000214 MOV URDSRG(R4) R2 ;R2 = RESPONSE DESCRIPTOR RING 

sees 026512 162702 00004 SUB #4 ,R2 ;BACK UP POINTER BY A LONGWORD 

3767 026516 162701 000004 1$: SUB 04,R1 ;BACK UP POINTER BY A LONGWORD 

3768 026522 020201 CMP R2,R1 ;BACKED UP PAST START OF RING? 

3769 026524 001410 BEG 203% YES - SO GET OUT 


3772 026534 103005 BCC S$ ;BRANCH IF SLOT NOT USED 
3773 026536 012761 100000 000002 MOV @OWN ,HIADDR(R1) ;GIVE SLOT BACK TO PORT 


3775 026544 000764 S$: BR i$ ;LOOK FOR MORE 
3776 026546 208: POP <R2,R1> ;RESTORE R2 AND R1 
3777 026552 000240 NOP ; TEMP 


j 

| 

| 

3770 026526 C00241 CLC CLEAR THE CARRY 

3771 026530 006064 000010 ROR SLTUSE(R4) ‘MOVE BITO TO CARY BIT 
3778 026554 000207 RTS be ;RETURN 

| 

; 

; 

! 


te ttt. tLL Litt. état CCC CC A CL LL LLL LLL LLL 


I - LT em ee 
ee ee — — . 7 
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010174 
016437 
012703 
012701 


C12737 
005002 


012737 


000000 
000214 
026776 
104000 


000050 


010740 
000002 
000002 
010752 
000002 
100000 


000214 
000210 


000104 
000212 
000220 


003756 


000050 
004216 


000006 


027000 


010740 


010752 


010732 


.SBTTL PORT DRIVER INITIALIZATION 


§ SSPEARS EESESSESAAAESESESAEESEES 


Port Driver Initialization 
Called By 


;Register Enpute: 
:Registers Used : 


PRTINT:: 


LOOP: 


ILOOP : 


2s: 


3$: 


4$: 
S$: 


10$: 


TKERR: 


CLSORV 


SEQ 94 


R4 - Lun block pointer. 


R2 - Used b 


Ri - Current init ste 
the watchdog timer 


in process 


R3 - Initialization data table pointer 


<R1,R2,R3,R5> 
R1,@TKIPCR4) 
URDSRGCR4), INTTBL +2 
@INTTBL RS 
@S1!ERR,R1 


#40. ,CNTHI 
R2 


R2 


2s 
CNTHI 
TKERR 


ATKSACR4),R1 
ILGOP 
@TKSACR4),SAERR 
SAERR 

TKERR 

(R3)+, ATKSACR4) 
Ri 

4$ 

ERR ,R1 

LOOP 
URDSRG(R4),R2 
URSPBF(R4),R3 
R3,(R2)> 

R2)+ 
@DRBSTP,RS 
URBEND(R4),R3 
S$ 
UCDSRG(R4),R2 
@#DCMDBF .R3 
R3,CR2)+ 


C(R2)+ 
SOCBSTP,.RS 
#DCBEND ,R3 
10$ 


IDONE 
GINTERR , IOSTAT 


;SAVE R1, R2, R3 AND RS 
; INITIALIZE THE DRIVE 

;PUT RESP DESCRIPTOR ADDRESS IN 
;PUT THE TABLE ADDRESS INTO R3 
;SET UP TO BEGIN AT STEP 1 


;SET UP THE TIME OUT COUNTER 
;CLEAR R2 


; INCREMENT HI TIME OUT VALUE ? 
;IF NOT, BRANCH 

;ELSE, INCREMENT HI TIMEOUT 
;GET OUT, WE’ VE TIMED OUT 


; TEST FOR STEP BIT FROM DRIVE 
;LOOP UNTIL SOMETHING SETS 
;SAVE THE oO THE ERROR PRINTOUT 


TABLE 


ROR 
;WRITE WORD FROM TABLE TO CONTROLLER 
;SHIFT TO NEXT STEP 
;GET OUT AFTER FOURTH STEP 
;ALSO CHECK FOR ERROR BIT 
;IF NOT AT LAST STEP LOOP 


;PUT THE RESPONSE DESCRIPTOR ADO IN R2 
;PUT THE RESPONSE BUFFER ADDRESS IN RS 
;PUT THE BUFF ADD IN THE DESCRIPTOR 
;CLEAR THE NEXT WORD 

;STEP TO THE NEXT BUFFER SLOT 

;ARE WE AT THE END OF THE BUFFER ? 
;NO, KEEP GOING 


;PUT THE CMD DESCRIPTOR <2 iN R2 
;PUT THE CMD BUFFER ADDRESS IN R3 
;PUT THE BUFF ADD IN THE DESCRIPTOR 
;CLEAR THE NEXT WORD 

;STEP TO THE NEXT BUFFER SLOT 

;ARE WE AT THE END OF THE BUFFER ? 
;NO, KEEP GOING 

;ALL DONE 


;SET UP FOR A FATAL ERROR 


. wee or re eee oe ee Ee 
a ; zzz tt te LL LL LLL LLL 


~ eee ee ce re ee 


ee a ee | eee eee ree ee 


_ ee eee — 


a eS cee oe 
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PORT DRIVER INITIALIZA:ION 
38 026756 005337 005540 IDONE: DEC RSPCNT 

3839 026762 POP <RS,R3,R2,R1> sRESTORE THE REGISTERS 

3840 026772 000240 NOP ; TEMP 

seas 026774 000207 RTS PC ;RETURN 

3B44 ;INIT DATA TABLE 

38645 026776 111400 INTTBL: -WORD TKINIT 

3846 027000 000000 .WORD O 

3847 027002 900000 .WORDB 0 


3848 027004 000001 .WORD GO 


GLOBAL 
ees RESPONSE HANOLER 


AREAS 


906 027230 


- — = eee ee eee ee ee 


yy YOS.02 Monday 26-Aug-85 09:54 Page 48 


023761 
101017 


010734 000020 


027572 


000016 
000004 
000014 
000004 
003752 
004022 
004072 


004072 
027576 
027420 
004142 


027620 


027420 
004142 
027620 
027420 
003752 


027642 


010732 


.SBTTL GCS RESPONSE HANDLER 
Pertti tiii titi titi rir ry 


: 
— RESPONSE HANDLER 
;Called By 


:Calls To : 
;Register Inputs : 


; : 
sRegister Inputs : 
; 


GCSHDL: : 


5$: 


OLD1: 


5$: 


10$: 


OLD2: 


5$: 


CMSTSV,P.CMSTCR1) 
@GCSRFL .PCFLAG 
RESP 

HNDLRP 
@IOHUNG , IOSTAT 

PC ,CORDMP 

GCSEXT 


<R 


1,R2> 
COLSAV(R4),R1 
#4,R1 
CNUSAVC(R4),R2 
#4,R2 
@CMDBF1,R1 
OLD1 
@CMDBF2.R1 
OLD2 
#CMOBF3,R1 
OLDS 


or a8 
ak ne ta 
echoes R2 
PC. EXCOAS 
PC .EXC1A2 
ADJUST 

PC ,EXC3A4 
PC .EXC2AS 
PC ,EXCiA2] 
ADJUST 
— »R2 
PC ,EXC2A3 
ADJUST 

a +" R2 


PC LEXC3A4 


eee —<— 


;ANY PROGRESS ? 

;YES, CLKEAN UP THE MESS 
HE GCS MODE FLAG 
;TAKE OFF THE RESPONSE 
;SET HUNG CONTROLLER BIT 
;GET OUT 


;PUT THE OLD POINTER IN Ri 


s ADJUST TO INCLUDE DESCRIPTOR WORDS 


PUT THE NEW POINTER IN R2 


‘ADJUST TO INCLUDE DESCRIPTOR WORDS 


;0LD POINTER AT BF1 ? 
;YES, GO HANCLE IT 
:OLD POINTER AT BF2 ? 
YES, GO HANDLE IT 
sOLD POINTER AT BFS ? 
» GO HANDLE IT 
‘NO. "GO HANDLE BF4 


;NEW POINTER AT BFS ? 
;NO, TRY AGAIN 

;GO MOVE COMMAND 1 TO 2 
;GO ADJUST THE OLD POINTER 
;NEW POINTER AT BF4 ? 


MOVE 1 170 2 
:GO ADJUST THE OLD POINTER 
;NEW POINTER AT BF4 ? 

TRY AGAIN 


3NO, 

:GO MOVE COMMAND 2 TO 3 
;GO ADJUST THE OLD POINTER 
;NEW POINTER AT BF1 ? 

:NO, TRY AGAIN 

;GO MOVE COMMAND 3 TO 4 


SEQ 96 


ee 


Ee ee ee 
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027410 
027414 


027420 
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005364 
042737 
105237 
062764 
022764 
001003 
012764 
062705 
022705 


001002 
012705 


016464 


027629 
027420 


027620 
027420 
003752 
027642 
027420 
004022 


027664 


027420 
004022 
027664 
027420 
004072 


027576 
027664 


100000 
010755 


000050 
004216 


003756 


0v0050 
004216 


003756 
000104 
000212 
000210 


003674 
010734 


010732 
000016 
000016 
000016 


000022 
000022 


000022 


10$: 


OLDS: 


5$: 


10$: 


OLD4: 


S$: 


10$: 


ADJUST: 


S$: 


10$: 


JSR 
JMP 


PC ,EXC2A3 
ADJUST 
PC ,EXC4A1 
PC ,EXC3A4 
PC, EXC2A3 
ADJUST 
gpa s. oe 
PC ,EXC3A4 
ADJUST 
@CMDBF2 ,R2 
10$ 
PC,EXC4A1 
PC ,EXC3A4 
ADJ 


PC, -EXC3A4 
ADJUST 
Sra syne 
PC,EXC4A1 
ADJUST 
@CMDBF3,R2 
10$ 

PC ,EXC1A2] 
PC ,EXC4A1 
ADJUST 

PC ,EXC2A3 
PC ,EXC1IA2] 
PC ,EXC4Ai 
<R2, 


R1i> 
@GCSRFL ,PCFLAG 

P EnSTCRLD. CMSTSV 
RESP 


HNOLRP 
CMDSEQ(R4 ) 
@NURESP , IOSTAT 
CROLIM 


@OCBSTP, COLSAV(R4 ) ;ADJUST THE OLO COMMAND POINTER 
te lence 4 ae END OF THE RING ? 

: 
@OCMDBF , COLSAVC(R4 ) :YES, SET IT TO THE TOP OF THE RiNG 
@DCBSTP,RS ;ADJUST THE OLD COMMAND POINTER 
#OCBEND RS :IS IT AT THE END OF THE RING ? 
10$ ;NO, BRANCH 
#DCMDBF .RS :YES, SET IT TO THE TCP OF THE RING 
@DRBSTP ,ROLSAVC(R4 ) ;ADJUST THE OLD RESPONSE POINTER 
URBENDCR4 ), ROLSAVC(R4 ) ;IS IT AT THE END OF THE BUFFER ? 


15$ 
URSPBF (R4),ROLSAV(R4 ) 


ee —— a ee ee 


;GO MOVE COMMAND 2 TO 3 


;GO ADJUST THE OLD POINTER 
AND 


TO 1 
O MOVE COMMAND 2 TO 3 


iG 
:60 ADJUST THE OLD POINTER 


;NEW POINTER AT BF1 ? 
;NO, TRY AGAIN 

‘GO MOVE C 
:;GO ADJUS 

;sNEW POINTER AT BF2 ? 


;NEW POINTER AT BF2 7? 
‘NO, TRY AGAIN 

ey ae 
;NEW POINTER AT BFS ? 


;GO MOVE COMM 


4701 
;GO ADJUST THE OLD POINTER 


;GO MOVE COMMAND 2 TO 3 
;GO MOVE COMMAND 1 TO 2 
;GG MOVE COMMAND 4 TO 1 


;CLEAR THE GCS 


OMMAND 3 TO 4 
T THE OLD POINTER 


MOVE COMMAND 3 TO 4 
;GO ADJUST THE OLD POINTER 


MOVE COMMAND 4 TO 1 
ADJUST THE OLD é aoeen 


SE@ 97 


MODE FLAG 
;PUT THE CMD STATUS INTO THE SAVE LOC 
SPONSE 


; TAK ONSE 

;ADJUST THE CMDSEQ@ NUMBER BACK 1 
RESPONSE FLAG IN IOSTAT 
;ADD 1 TO THE CREDIT LIMIT 


;CLEAR THE NEW 


;NO, KEEP 


GOING 
;YES, SET IT TO BEGINNING OF THE BUFFER 


AREAS 


027572 
027572 


027574 
3 


027576 


027616 


982 027620 


—<- — a — 


GLOBAL MACRO YOS.02 
GCS RESPONSE HANDLER 


016401 


000240 
000207 


012701 


000104 
000212 


000210 


003752 
004022 


004022 


004022 
004072 


004072 


004072 
004142 


004142 


004142 
003752 


004022 


i5$: 


GCSEXT: 


EXCiAe2: 


5$: 


EXC2A3: 


S$: 


EXC3A4: 
~ S$: 


EXC4A1: 


5$: 
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@DRBSTP,R1 
URBEND(R4) Ri 


GCSEXT 
URSPBF(R4),R1 
; TEMP 

PC 


@#CMDBF1,R1 


#CMDBF3,R1 
eCMDBF4 ,R2 
CR1)+,CR2)+ 
@CMDBF4 ,R1 
PC 

@CMOBF4 Ri 


me ee” —_— - 


SEQ 96 


;ADJUST R1 

31S IT AT THE END OF THE BUFFER ? 

3NO, GET OUT 

;YES, SET IT TO BEGINNING OF THE BUFFER 


;RETURN 


;SET R1 10 BF1 

;SET R2 TO BF2 

;MOV BF1 CONTENTS TO BF2 
;HAVE WE MOVED THEM ALL 
;NO, KEEP MOVING IT 
;YES, GET OUT 


;SET R1 TO BF2 


WE 
;NO, KEEP MOVING IT 
;YES, GET OUT 


;SET R1 TO BFS 

;SET R2 TO BF4 

;sMOV BF3 CONTENTS TO BF4 
;HAVE WE MOVED THEM ALL 
3;NO, KEEP MOVING IT 
:YES, GET OUT 


;SET R1 TO BF4 

;SET R2 TO BF1 

;MOV 8F4 CONTENTS TO BF1 
;sHAVE WE MOVED THEM ALL 
;NO, KEEP MOVING IT 
;YES, GET OUT 
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RESPONSE HANDLER 


4003 .SBTTL RESPONSE HANDLER 
4008 s ReRReeSERERESAAEEEEEESREEEES 
400 ; 
oot — HANDLER 
4008 Called By : CMDSEQ 
4009 ;Calls To : ERRDEI, ERRDEL, ERRDEC, CMPDAT, DQCMD 
4010 ;Register Inputs : R1 - UNIT NUMBER 
) 4011 3 : R&4 - LUN BLOCK POINTER 
pets | :Register Inputs : R3 - POINTER TO CURRENT RESPONSE PACKET 
| : 
4014 
4015 027706 RSPHDL: : 
4016 027706 PUSH <R3> 


4018 027714 105737 0107352 TSTB IOSTAT ;CID WE HAVE I/O TYPE FAILURE? 
4019 027720 001404 BEQ S$ ;BRANCH AROUND IF NOT 

4020 027722 004737 031724 JSR PC ,ERRDEI ;ELSE oe aie AND PRINT IT 
4021 027726 000137 030216 JMP 75$ ;GET OUT 


4023 027732 016403 000022 S$: MOV ROLSAV(R4),R5 ;GET OLD RESPONSE BUFFER POINTER 
4024 027736 005737 003556 TST HNOLRP ;DID WE HAVE ANY RESPONSES ? 
4025 027742 001002 BNE 10$ ;YES, SEE WHAT THEY ARE 

4026 027744 000137 030216 JMP 75$ ;NO, GET OUT OF HERE 


4028 027750 032763 000200 000010 10%: BIT #OP .END,P.OPCDCR3) ;IS IT AN END PACKET? 
027756 001003 BNE 15% ;YES, BRANCH 
032264 JSR PC ,ERRDEL ;GO HANDLE ERROR LOG PACKET 
BR 65% ;SEE IF THERE’S MORE RESPONSES 


000012 15$: TST a vee ig “NORMAL ”? 


YES - BRANCH 
000022 000012 CMP @ST.SEX,P.STSCR3) :1S IT SERIOUS EXCEPTION STATUS? 
BNE 20% ;BRANCH IF NOT 
000004 000926 BIS @NOTALY ,LUNFLGC(R4 ) ;YES, SET THE NO-TALLY FLAG 
BR 60$ :GO DE-QUE THE COMMANDS 


20%: NOP ; TEMP 
003560 TST MRETRY ;ARE WE IN MANUAL RETRY MODE 
BEQ 25% ;BRANCH IF NOT 
000012 00372? MOV P.STSCR3),R15 ;GET STATUS 
177740 00372: BIC #177740,R1i3 ;STRIP UNWANTED BITS 
000010 003722 CMP HE DAT. R13 :IS IT A a 


BNE 25 ; BRANCH 
000006 000026 BIS @SEREXC!NOTALY, LUNFLG(R4); SERIOUS EXCEPTION AND NO TALLY FLAG 
003562 INC MANCNT ;KEEP TRACK OF NUMBER OF ACTUAL WRITE /READ RETRIES 
003560 DEC MRETRY ;COUNT DOWN MAUAL RETRIES 
BNE 60$ ; BRANCH IF NOT FINISHED MANUAL RETRIES 
0v0002 005564 MOV #2, ARETRY ;SCT UO AUTO RETRY COUNTER 
BR 60% ; CONTINUE 


031122 25%: JSR eo ;GO HANDLE ERROR STATUS 





056 
4057 030106 000241 30$: CLC ;CLEAR THE CARRY BIT 
30 ROL LEOTFLC(R4) ;ROTATE THE CARRY INTO THE LEOT FLAG 


4017 027710 005037 003552 CLR RESPON ;0 HERE TELLS CMDSEQ@ ALL'S OKAY 
4058 030110 006164 0000 
4059 030114 004737 030250 JSR PC ,RETDON ;GO SEE IF RETRY COMPLETE 





_ 


GLORAL AREAS 
RESPONSE HANOL 


86 030226 


032761 


000001 603526 50%: 
000241 000010 
000005 002114 


002236 


032732 
030460 


000104 
000212 


000210 
003556 
027750 
000022 


55%: 
60%: 
65$: 


70$: 


75$: 
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+  ORINUS(R1) 


———— eee 


sHAVE WE —” THE UNIT 7? 


;VES - 
@OP .END!OP.RD.P. OPCOCR3). ;O0I0 WE READ bye _ ? 


60$ 
#S,LSTEST 
558 


TSCMP 
60$ 


PC, CMPDAT 
PC .DQ@CMD 


#ORBSTP RS 
URBEND(R4),R3 


70$ 
URSPBF(R4),R3 


R3,ROLSAV(R4) 
<R3> 


; TEMP 
PC 


;NO - SKIP DATA COMP 

;ARE WE IN TEST 5S ? 

:NO - DO DATA COMPARE 

;00 CATA COMPARES IN TEST S ? 
;NO, SKIP DATA COMPARE 


;D0 COMPARE DATA 
;DEQVEVE THE COMMAND 


;ADJUST POINTER TO NEXT PACKET 
;END OF end eee BUFFER? 


;NO - BRANCH AROUND 
;PUT POINTER AT BEGINNING OF BUFFER 
A nag de RESPONSE COUNTER 
ALL GET OUT 
;GO HANDLE ANOTHER ONE 


;SAVE OLD RESPONSE BUFFER POINTER 


EE EL A 


ae ee eee 


eee eee te eee 


MACRO YOS.02 


003564 


003564 


0113516 
013166 


032624 
013167 
002230 
000003 
000020 
000100 
002231 


032714 


003560 


003564 


013166 
003716 
003716 
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-SBTTL RETRY DONE 


s SSSSESEEESESESEASESSESSEAESAALSEASEESEE 


; 
; RETRY DONE 
; 


RETDON: : 
TST MRETRY 
BEQ 40$ 
BIT #1,MRETRY 
BNE 35$ 
DEC MRETRY 
BR 100% 
35$: CLR MRETRY 
BR 50$ 
40$: TST ARETRY 
BEQ 100$ 
BIT #1, ARETRY 
BNE 4S$ 
DEC ARETRY 
BR 100$ 
4s$ CLR ARETRY 
50$ PUSH <R1,R2> 
MO @SDATT,.R1 
MOV #LSERRTBL ,R2 
MOV CR1)+,CR2)+ 
MOV CR1)+,CR2)-+ 
MOV CR1i)+,CR2)+ 
MOV CR1)+¢,CRA)+ 
POP <R2,R1> 
SR PC, ,ERRTLY 
CLRB ERRTYP+1 
TST8 SOERRP 
BNE 60$ 
CMPB @SOFT.LSERRTBL 
BNE 60$ 
CMP @WR R11 
BEG 70% 
CMP @WTM, Ril 
EQ 70% 
TSTB RDSOER 
BEG 70$ 
60$: JSR PC ,PRIERR 
70$: CLR MANCN NT 
BIC ORETFLG, ween? 
BIC @CMDONE ,PCFL 
MOV cCTSAV, eMBCNT. 
ADD CCTSAV,RSPCNT 
100$: RTS PC 


em ee _- . - - 


SEQ@ 101 


;ARE WE IN MANUAL RETRY MODE 

;BRANCH IF NOT 

; JUST FINISHED A SPACE REVERSE 

lt IF T 

;COUNT DOWN MANUAL RETRIES CTCGGLE BIT 0) 


;MANUAL RETRY SUCCESSFUL, CLEAR COUNTER 


;ARE WE IN ATUO RETRY MODE ? 

;BRANCH IF NOT 

; JUST FINISHED A SPACE REVERSE 

;BRANCH IF NO 

;COUNT DOWN AUTO RETRIES C TOGGLE BIT 0) 


;AUTO RETRY SUCCESSFUL, CLEAR COUNTER 


;SAVE R1 AND R2 
;PUT THE ERROR ADDRESS IN Ri 
TABLE > IN R2 


;MOVE ERROR TABLE CONTENTS 
Tat Tie AND Ri 


T 
sIS fi A WRITE TAPE MARK ? 
;DON‘'T PRINT IT 

;ARE WE PRINTING hd READ ERRORS ? 


;NO, D 

‘PRINT THE ERROR 

;CLEAR THE MANUAL RETRY COUNT 
;AND THE FLAG 

;CLEAR THE COMMAND DONE FLAG 
;RESTORE COMMAND COUNT 

;ADJUST THE RESPONSE COUNT 


GLOBAL AREAS 
DE -QUEVE COMMAND 


mer a ee ae 
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004737 
062702 
022702 
001002 
012702 


003540 
177777 010734 


-SBTTL DE-QUEUVE C 


OMMAND 
| POSSESSES EEEEEEESEEEEEESEEEEEEED 


DE -QUEYE COMMAND 


Called By : yA 

;Calls To : LGSTA 

sRegister Inputs : R2 - OLD POINTER TO PROGRAM COMMAND RING 

sRegister Outputs: R2 - UPDATED 

: 

DQ@CMD: : 
JSR PC,LGSTAT ;CALL LOG STATS 
ADD @PCBSTP ,R2 ;ADJUST THE OLD COMMAND POINTE 
CMP @PCBEND .R2 ;ARE WE AT THE END OF THE BUFFER ? 
BNE 5$ ;NO, KEEP GOING 
MOV oPCMDBF ,R2 ;YES, SET IT BACK TO THE TOP 
DEC RSPCNT ;DECREMENT THE RESPONSE COUNTER 
MOV @-1,CMSTSV ;RESET THE GCS PROGRESS COUNT 
NOP ; TEMP 
RTS ;RETURN 


SEQ 


102 


- ——— —— 


ee cee 


Le 


GLOBAL AREAS 
LOG STATISTICS 
4166 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
177 
4176 030520 
ats disass 
4161 030830 
sits 030532 
4185 0 
4164 030542 
4185 030546 
4186 030550 
4167 030554 
41866 0 
41869 0 
4190 030570 
4191 0350576 
rte 030600 
4193 0 
4194 030610 
4195 050612 
ries 1 030616 
4197 0 2 
4198 0 4 
4199 030652 
4200 030634 
4201 0 2 
sees Gass 
seer Gustee 
4 Q 
& 0 
sre, Sueere 
ass Supe 
10 704 
4211 030706 
aie Suerte 
a3ia 0 132 
SE aor 
rt tt: 030734 
19 030742 
rts 030744 
4221 0 Le 5 
osee 0307 
4223 0307 
4224 030770 


ae ee eee ee eee 
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003732 


000012 
000012 
000012 


000010 
001747 





eee ee eee e+ 


SEQ 105 


-SBTTL LOG STATISTICS 
| SOSSSCSSSESEEEEEEESSESRESEEERDEESEEES 


; 
; LOG STATISTICS 


$ 
:Celled By : D@CMD 
;Register Inputs : R2 - OLD PROGRAM COMMAND POINTER 
$ R4 - LUN BLOCK POINTER 
3 
LGSTAT:: 
PUSH <R4> ;SAVE R4 
BIT @NOTALY ,.LUNFLGC(R4) :1S THIS NOT TO BE TALLIED ? 
BNE TLYEXT : ° 
CMPB @ACC .CMDC(R2) 3;SEE IF COMMAND A READ OR WRITE 
BLO TLYEXT ;NO, EXIT SUBROUTINE 
TSTB CMDCR 31S IT A NMAAL ? 
BEQ TLYEXT ;YES. EXIT SUBROUTINE 
ADD @GWRBY1.R4 ;ADD OFFSET TO BYTE COUNT STORAGE 
CMP @TF .PE .FORMAT ;ARE WE IN PE OR 
BNE TALLY ;GO TALLY THE GCR BYTE COUNT 
ADD #20 ,R4 sADJUST R44 F PE 
TALLY: CMPB @wR .CMOCR2) :I1S IT A WRITE ? 
BNE 5 ;NO, HANDLE READ 
ADD ITMOFFCR2),CR4) ;YES, ADD THE BYTES WRITTEN TO TOTAL 
if: CMP (R4), #999. :1S IT HIGER THAN 999. ? 
BLE 2$ ;BRANCH IF IT'S NOT 
SUB #1000. ,CR4) ;SUBTRACT 1000. FROM THE LOWER ORDER WORD 
~ gga ; INCREMENT THE SECOND WORD 
2s: CMP 2CR4), 6999. :1S IT HIGER THAN 999. ? 
BLE 3% ;BRANCH IF IT'S NOT 
SUB #1000. ,2(R4) ;SUBTRACT 1000. FROM THE LOWER ORDER WORD 
= oT ; INCREMENT THE THIRD WORD 
3%: CMP 4(R4), 0999. :I1S IT HIGER THAN 999. ? 
BLE ;sBRANCH IF IT'S NOT 
SUB #1000. ,4(R4) ;SUBTRACT 1000. FROM THE LOWER ORDER WORD 
ag 4 ; INCREMENT THE FOURTH WORD 
4$: CMP 6CR4), #999 31S IT HIGER THAN 999. ? 
BLE TLYEXT sBRANCH IF IT'S NOT 
CLR (R4) ;CLE 
CLR 2c(R4) : 
CLR 4(R4) ; BYTE 
CLR 6(R4) 3 COUNTS 
BR TLYEXT ;EXIT 
5$: CMP @ST.™M.P.STSCRS3) ;WAS THIS A TAPE MARK DURING READ 
BEQ TLY ;YES. GET OUT 
a lama ;WAS ee A DATA ERROR DURING READ 
: 6 
CMP #350 ,P.STSC(R3) ;WAS THIS A DATA ERROR DURING READ 
BEG TLYEXT ;YES, GET OUT 
ADD P. TRBC(R3).10(R4) ;YES, ADD THE BYTES READ TO TOTAL 
68: CMP 10°C R4), 999. :IS IT HIGER THAN 999. ? 
BLE 7$ ;BRANCH IF IT'S NOT 





ct 


—_ 
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Che STATISTICS 
001750 000010 SUB #1000. . 10(R4) 
000012 INC i2cRa) 
000012 001747 7%: CHP 12(R4), 0999. 
001750 000012 SUB #1000. .12(R4) ! 
000014 INC 14(R4) ) 
| 000014 001747 88: cre 14(R4), 999. | 
001750 000014 SUB #1000. ,14(R4) 
Inc 16(R4) 
000016 001747 96: CHP 16(R4), 0999 
BLE YEXT 
000010 CLR 10(R4) 
000012 CLR (Ra) 
000014 CLR 14(R4) 
000016 CLR 16(R4) COUNTS 
TLYEXT: POP <R4> RESTORE R4 
042764 000004 000026 BIC @NCTALY ,. LUNFLGC(R4) CLEAR THE NO-TALLY FLAG BEFORE EXITING 
000240 NOP ; TEMP 
000207 RTS ;RETURN 
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ERROR DECODE 
4249 .SBTTL ERROR DECODE 
rere s SESEASAESSESSESSESASSARESASSEAASESRESE 
4251 3 
4252 ; ERROR DECODE 
4253 : 
4254 ;Called By : RSPHDL 
4255 :;Calls To : ERRTLY, PRIERR 
seze sRegister Inputs : R2 - OLD PROGRAM COMMAND BUFFER POINTER 
; 
4258 
4259 031122 ERRDEC: : 
| 4260 031122 PUSH <R5> ;SAVE R 
4261 031124 016205 0006010 MOV XFERSTCR2),R5 ;PUT THE COMMAND STATUS IN - 
4262 0311 022705 000400 CMP @ST.ONL,RS ;IS IT A UNIT ONL INE ERROR ? 
4263 031134 01 BNE S$ ; BRANCH IF IT ISN‘T 
| 264 031136 012737 000100 003620 MOV #ONLB , WRKMSK ;SET THE ERROR BIT me THE MASK 
4265 031144 00015 031712 JMP MSKTST ;GO TEST IF IT‘S O.K 
4266 031150 042705 177740 S$: BIC #177740,R5 ;CLEAR THE UNWANTED BIT 
4267 031154 022705 9000010 CMP #ST.DAT,RS :Is IT A DATA ERROR CRETRY) 
4:56 0311 C€01017 NE 10$ ;BRANCH IF NOT 
4269 031162 105737 002225 TSTB SERREC ;USER DISABLE RETRIES ? 
4270 0311 001414 BEQ 10$ ;BRANCH IF SO 
4271 031170 005737 003564 TST ARETRY ;DID WE FAIL IN AUTO RETRY MODE ? 
4272 031174 001011 BNE 10$ ;BRANCH IF SO 
4273 031176 012737 000016 003560 MOV #14. ,MRETRY ;SET FOR 7 RETRIES, 7 SPACE RECORDS 
4274 0312 7 032500 JSR PC ,RUNJAM ;GO ADJUST THE COUNTERS 
4275 031210 005237 003562 INC MANCNT ; INCREMENT FOR FIRST RETRY 
rt Hi 031214 000137 032142 JMP EDCEXT ;RETURN 
4278 031220 022762 002000 000010 108: CMP #2000, XFERSTC(R2) ;I1S EOT SET IN TRANSFER STATUS ? 
4279 031226 105 BNE 20$ ee te IF IT ISN'T 
4280 031230 73 030230 JSR PC,RETDON E IF WE'RE DOING RETRIES 
4261 1234 122762 000020 000000 c @WR ,CMDCR2) ;1S IT A WRITE ? 
4282 031242 001410 BEQ ; YES, ET UP FOR EOT 
4283 031244 022762 000100 000000 CMP #wT™M,CMDCR2) :1S IT A WRITE TAPE MARK ? 
42864 031252 0014 BEQ 11$ ;YES, SET UP FOR EOT 
4285 031254 004737 030230 JSR PC ,RETDON ; SEE IF WE'RE DOING RETRIES 
rt ++ 031260 000137 032142 JMP EDCEXT ;RETURN 
4268 031264 052761 003526 11%: BIS #EOT ,.DRINUS(R1) ;SET THE DRIVE TO EOT 
4289 031272 005237 003706 INC VEOT ;INC THE EOT FLAG 
4290 031276 163737 003536 003540 SUB CMDOCNT ,RSPCNT :SET RESPONSE COUNT TO NUMBER OUT 
4291 031304 50 0035 CLR CMD ; ISSUE NO MORE COMMANDS 
4292 0313190 032764 9000010 000026 BIT #EOTPR,LUNFLGCR4) ;HAS EOT BEEN PRINTED FOR THIS DRIVE ? 
4293 031316 001017 BNE i5$ :DON' T PRINT IT AGAIN 
4294 031320 PUSH <Ri> ;SAVE R1 
4295 031322 006001 ROR ;DIVIDE R1 BY 2 
4296 031324 PRINTF @UNTEOT,R1 :;PRINT UNIT AT EOT MESSAGE 
1324 010146 MOV 1,-CSP) 
031326 012746 020255 MOV @UNTEOT, -C( SP) 
031332 012746 000002 MOV #2,-(SP) 
031336 0106 MOV SP ,RO 
03134 104417 TRAP CSPNTF 
031342 062706 000006 ADD #6, SP 
4297 1346 POP <Ri> ;RESTORE R1 
4298 031350 052764 000010 000026 BIS #EOTPR,LUNFLG(R4) ;EOT BEEN PRINTED FOR THIS DRIVE 
4299 031356 000137 032142 15$: JMP EDCEXT ;GET OUT 


ee eo ee ee 


itt. a tL itil, LLL A LLL LLL LL LLL LLL LLL 


_— eee er eee 
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ERROR DECODE 


031604 
031610 
031614 


me ee eee 
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012737 
022705 
003 


012746 


011036 
000013 
000010 
000023 
000024 


000002 


000002 


032142 
000010 
032142 
0v0010 
000020 


000030 
000002 


G03710 


003674 
003552 
003724 
003620 


000026 
000030 
000030 
000026 


000026 
003526 


003540 


00coil 


003620 


003620 


20%: 


2538: 


308: 


358: 


36$: 
40$: 


45$: 


50$: 


@CMOT ,RS& 
2 


13,R5 
253 
OORERFL .PCFLAG 
023.85 

30$ 

024,85 

ERREXT 

@SEREXC ,RESPON 
P.CRF(R3), SECRNS 
OST. WPR,RS 


35$ 
@WPRB , WRKMSK 
MSKTST 


@ST.TM,RS 

50$ 
@SEREXC,LUNFLGCR4 ) 
LEOTFLC(R4 ) 
0177774,LEOTFLCRS4 ) 
#3 ,LEOTFLCR4) 

40$ 

eran 


36 
GEOTPR,LUNFLG(R4 ) 
@EOT ,ORINUS(R1) 
VEOT 


<Ri> 

Ri 

@UNTLOT,R1 
R1,-CSP 
@UNTLOT, -C SP) 
@2,-(SP) 

SP 


RO 
CSPNTF 
#6, SP 


<R1> 

CMOCNT ,RSPCNT 
CMDOCNT 

RESPON 

EOCEXT . 
MEF .EOT,P.FLGSCRS3) 
45$ 

EOCEXT 
#TMB , WRKMSK 
MSKTST 
#ST.RDT,RS 

55$ 

LEOTFL(R4) 


@RDTB , KRKMSK 
MSKTST 


ee 


;IS IT A 


DRIVE E 
TINUE 


, SAVE - CURRENT C 
;BRANCH IF 
;GO TEST IF IT’S 


;IS IT A TAPE MARK ERROR ? 


;BRANCH IF IT ISN'T 


;SET SERIOUS EXCEPTION 


;PuUT ie ERROR tans ADDRESS IN RB 
:IS IT A RROR ? 
;NO, CONTI 
:SET a DRIVE ERROR FLAG 
A VALID STATUS ? 
;IT’'S VALIO, BRANCH 
sMAKE SURE ITS NOT A THAN 24 
; TAKE THE ERROR EXI 
;SET SERIOUS EXCEPTION 

OMMAND REF 
WRITE PROTECT ERROR ?” 


IT ISN’ 
:SET THE ERROR Ten IN THE MASK 


SEQ 106 


i 
;HAS a BEEN PRINTED FOR THIS DRIVE ? 


;D0N’T PRINT IT 


AGAIN 
sLEOT BEEN PRINTED FOR THIS DRIVE 


PINC THE EOT FLAG 
:SAVE R1 
;DIVIDE Ri 


BY 2 
;PRINT UNIT AT EOT MESSAGE 


;RES7ORE 


R1 
;SET RESPONSE COUNT TO NUMBER OUT 
; ISSUE NO MORE COMMANDS 


;MAKE SURE WE 
;GET OUT 


;I1S THE TAPE MARK AT EOT ? 


;NO, KEEP ON GOING 
sYES, GET OUT 


;SET THE ERROR Tan IN THE MASK 


:GO TEST IF IT’ 


:IS IT A ee tet TRUNCATED ERROR ? 


;BRANCH IF I 
;CLEAR THE CARRY BI 


;ROTATE THE CARRY INTO THE LEOT FLAG 
;SET THE ERROR BIT IN THE MASK 
;GO TEST IF IT'S O.K. 


T 


A 


GLOBAL AREAS 
ERROR DECODE 


031664 
031670 
031672 


031676 
031702 
031704 


360 031712 


031720 
031722 


031724 


031740 
031744 


032150 
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022705 
001002 
000137 


022705 
001020 
012737 
033737 


001110 
000410 


113705 


011515 


022762 
001006 


000023 
032142 
000004 
000040 
003620 


010732 
010756 
177770 


003710 
013166 


000010 


000001 
034022 


032624 


002231 
032714 
6000001 
034022 
000001 


003620 
003616 


003710 


000010 
013166 


013166 


003716 


003716 


002233 


013166 


55$: 


60$: 


MSKTST: 


ERRDET: : 


ERREXT: 


ERTLY: 


6$: 
B$: 


10$: 
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@ST.LED,RS 
60$ 

EDCEXT 
@ST.AVL,RS 
ERREXT 

@AVLB ,WRKMSK 
WRKMSK , TSTMSK 


EDCEXT 
ERREX? 


<R5> 
IOSTAT,RS 
#IOERTB,RS 
#177770,R5 


es A .LGP, XFERST(R2) 
@DEVFAT, ERRTYP 
PC ,CORDMP 

PC ,ERRTLY 
ERRTYP +1 
ga 

+ lS antl 
et 
@WwTM,R11 

&$ 

RDSOER 

8$ 

PC ,PRIERR 
#BITO,DOMPFLG 
10$ 

PC ,CORDMP 


@DEVFAT,ERRTYP 
EDCEXT 


;IS IT A LOGICAL END OF TAPE ERROR ? 
+ ae ot IF IT ISN’ 
;GET OUT IF LEOT DETECTED 


;I1S IT A _UNIT AVAILABLE ERROR ? 
;BRANCH IF IT ISN’‘T 
;SET THE ERROR BIT IN THE MASK 


:IS IT AN ACCEPTABLE ERROR ? 
;GET OUT IF IT IS 
; OTHERWISE PRINT THE ERROR 


;SAVE RS 

;PUT THE I/0 ERROR CODE INTO RS 
;SET THE ERROR TABLE ADDRESS IN RB 
;CLEAR OFF ALL UNWANTED BITS 


;SUBTRACT 1 FROM RS 
;MULTIPLY RS BY 10(8) 
; 


; 
;ADD THE TABLE ADDRESS TO RS 


;SET R3 TO THE GENERIC ERROR TABLE 
;MOVE ERROR TABLE CONTENTS 
;sMOVE ERROR TABLE CONTENTS 
;MOVE ERROR TABLE CONTENTS 
;MOVE ERROR TABLE CONTENTS 


;IS IS A LONG GAP ENCOUNTERED ? 
;NO, KEEP GOING 

;YES, DROP THE UNIT 

3:2:;G0 DO IT 


bas 

;TALLY THE ERROR 

;CLEAR UPPER BYTE 

;ARE SOFT ERRORS ENABLED ? 
;YES, GO PRINT THE ERROR 
aot ERROR ? 


RINT IT 
:IS ITA WRITE TAPE MARK ? 
;DON'T PRINT IT 
;ARE WE PRINTING SOFT READ ERRORS ? 
;NO, DON'T PRINT IT 
;GO PRINT THE ERROR 


;SHOULD WE DUMP PROGRAM TABLES? 
;NO - BRANCH 


:GO DO IT 


:IS IT A FATAL ERROR ? 
;NO EXIT 


SEQ 107 


GLOBAL AREAS 
ERROR DECODE 


032132 


032146 


032150 
032216 


~_ ooo 


eee —— + wee 
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010100 
006000 
004737 


000240 
000207 


045 
045 


040012 


116 
116 


MOV R1,RO ;MOVE UNIT @ @« 2 TO RO 
ROR RO ;DIVIDE BY 2 
JSR PC , DROPUN ;DROP DRIVE FROM TESTING 
EDCEXT: POP <R5S> ;sRESTORE REGISTERS 
NOP ; TEMP 
RTS PC ;RETURN 
045 RET1:: .ASCIZ /SNSAseeee BEFORE S038S28048A #¢0640N/ 


045 wy .ASCIZ /sSN#Asaeae AFTER SO038S528048A 2404008N/ 


GLOBAL 


AL AREAS 


MACRO YOS.02 


ERROR LOG DECODE 


032476 


116237 


012705 
116237 


000000 
177407 
000005 


011346 
000000 
011326 
000001 
011336 
011356 


000000 
013166 


032624 
013167 
0022350 
000003 
000020 
000100 
002231 


032714 


—_— ee eer 


003716 
003716 
000010 


000010 


000010 


003716 


013166 
003716 
003716 
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.SBTTL ERROR LOG DECODE 
j RERARERESEEERESEEEAEEEDEEEEAEEDEESE 


i 

; ERROR LOG DECODE 
; 

;Called By 


SS mae ee le 


SEQ 109 


ERRDEL:: 
PUSH <R3,R5> 
MOVB CMDCR2), Ril ;GET THE COMMAND PRIMITIVE FOR LATER USE 
BIC #177407,Ril ;GET JUST THE ROOT °RIMATIVE 
CMPB OFM. TPE,L.FMTCR3) ‘TAPE TRANSFER ERRUn LOG? 
BNE i$ :NO, DECODE IT 
MOV #TPEERL ,RS ‘PRINT PACKET 
BR PRTEXT ;GET OUT 
1$: CMPB the, CNT,L.FMTCR3) sCONTROLLER | — LOG? 
BNE ;NO, SEE WHAT IT IS 
MOV SENTERL. RS ‘ PRINT BACKET 
BR ;GET OUT 
5$: CMPB ty BAD. L.FMTCR3) HOST MEMORY ACCESS ERROR LOG? 
BNE 10$ ;NO, GET OUT 
MOV @BADERL ,RS ;SET UP TO PRINT HOST MEM ACC ERL 
BR PRTEXT ;GET OUT 
10$: MOV @UNKERL ,RS iSET UP TO UNKNOWN FORMAT ERROR LOG 
PRTEXT: PUSH <Ri> ;SAVE R1 
MOVB CMOC(R2),R11 >GET THE COMMAND PRIMITIVE FOR LATER USE 
MOV @LSERRTBL ,R1 :R1 = SUPERVISORS ERROR TABLE 
MOV CR5)+,CR1)+ ;COPY PROGRAM’S ERROR TABLE 
MOV CR5)+,CR1I) ; TO SUPERVISOR'S 
MOV CRS5)+,CR1)+ $ ERROR 
MOV CR5),.CR1) : TABLE 
POP <R1> ;sRESTORE R1 
JSR PC .ERRTLY ; TALLY ERROR FIRST 
CLRB ERRTYP+1 DISCARD INFO USED BY ERRTLLY 
TSTB SOERRP ARE SOFT ERRORS ENABLED 7? 
BNE i$ SYES, GO PRINT THE ERROR 
CMPB @SOFT,LSERRTBL :;IS IT A SOFT ERROR ? 
BNE 1$ ;NO, NT IT 
CMP WR R11 :IS IT A WRITE ? 
BEQ EDLEXT ;DON‘ T PRINT IT 
CMP @WTM,R1il ;I1S IT A WRITE TAPE MARK ? 
BEG LEX ;DON‘T PRINT IT 
TSTB RDSOER ; ARE WE cy pata SOFT READ ERRORS ? 
BEG EDLEXT ;NO, DON'T PRINT IT 
i$: JSR PC,PRIERR ;GO PRINT IT 
EDLEXT: POP <R5,R3> 
NOP ; TEMP 
RTS PC 


TC - ct 


GLOBAL AREAS 
RETRY UNJAM 


032622 


lO ———— 
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016337 


003724 


000026 


-SBTTL RETRY UNJAM 
j PAaaaERAEEREREEEEEEEEREEEREEEEDEEE 


; 
;RETRY UNJAM 


: 
:;Called By 

:Calls To 

;Inputs 

;Outputs : 
sRegister Inputs : 
;Register Outputs: 
: 


RUNJAM: : 
MOV P.CRFCR3),SECRNS 
MOV CMDCNT , CCTSAV 
SUB CMDCNT , RSPCNT 
CLR CMDCNT 
MOV CMDSEQ(R4) , SAVDIF 
SUB SECRNS , SAVDIF 
ADD SAVDIF ,CCTSAV 
SUB SAVOIF ,OBJFDLCR4 ) 
BCC & 
DEC OB JFDHCR4 ) 
S$: CMP @N , SUBCNT 
BNE 10$ 
CLR SUBCNT 
10$: INC SUBCNT 
DEC SAVDIF 
BNE $ 
BIS 
NOP 
RTS 


ee em wee ———_ ee --— 


SE@ 110 


;SAVE THE CURRENT COMMAND REF @ 
;SAVE THE COMMAND COUN 

;SET RESPONCE COUNT TO NUMBER OUT 
; ISSUE NO MORE COMMANDS 

;SET UP TO UNJAM THE QUEUES 

; SUBTRACT CURRENT FROM THE HIGHEST 
;ADJUST THE COMMAND COUNT SAVE 


;ADUST THE OBJECT COUNT 
;GET OUT IF NO CARRY 
;OTHERWISE, ADJUST THE HIGH WORD 


nit le tg atc ta EXCEPTION AND NO TALLY FLAG 
; 


;RETURN 


GLOBAL AREAS 
ERROR TALLY 


Te 


me ne we 
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113701 
022737 
001002 


013167 
000002 


000036 


003732 


.SBTTL ERROR TALLY 
j RPRREREREEEAREAEAESEREEEEEERAEEEESE 


3 
; ERROR TALLY 


: 
:Called By 
; 


ERRTLY:: 


5$: 


10$: 


: ERRDEC, ERRDEI, ERRDEL 


<R1,Re2> ;SAVE R1 AND R2 
ERRTYP+1,R1 ;GET THE ERROR TYPE IN R1 
#TF .PE ,FORMAT ;ARE WE IN PE MODE ? 
S$ ;NO, GO TALLY ERROR 
#36,R1 ‘YES ADJUST Ri FOR PE TALLIES 
R4,R1 as THE OFFSET TO THE LUN POINTER 
CMOCR2),R2 T THE COMMAND PRIMATIVE 
#7,R2 ‘CLEAR OFF THE MODIFIERS 
#ACC ,R2 ;I1S IT A UNIT ACCESS TYPE COMMAND ? 
10$ ;GO DO ~ ACCESS ERROR 
#WR,R2 ;1S IT A WRTIE COMMAND ? 
10$ ;YES,GO TALLY ERROR 
#2,R1 s;NG, ADD READ OFFSET TO ERRTYP 
CR1) ; INC THE ERROR COUNT 
<R2,R1> sRESTORE R1 AND R2 
; TEMP 
Cc ;EXIT 


SEQ@ 111 


— ee - oe 


ne ee ee 


ee eee ee 
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BERT ERROR y = age SEQ@ 112 


4536 .SBTTL PRINT ERROR 
pt rd s ASSAEEEESAASSESASSASSEAEESEASESEASCEEEEE 
: 
4541 ; PRINT ERROR 
4542 : 
4543 :Called By : ERRDEC, ERRDEI, ERRDEL 
4544 ;Calls To : ERROR 
4545 :Register Inputs : 
4546 ;Register Outputs: 
4547 
4546 032714 PRIERR: : 
4549 032714 010337 003740 MOV R3,R3SAVE ;SAVE R3 
4550 032720 010437 003742 MOV R4, R4SAVE ;SAVE R4 
4551 032724 ERROR ;ERROR MACRO 
032724 104460 TRAP CSERROR 
4552 032726 000240 NOP ; TEMP 
cant 032730 000207 RTS PC ;RETURN 


<_< rn a Lc asst TT ET CL CC LL LL LOL: LLL LL LL LLL LLL LLL LLL LLL LR, —— eee 


GLOBAL AREAS 


COMPARE 


DATA 


4568 032732 


——_ = —— —- ee ee 


MACRO YOS.02 Monday 26-Aug-85 09:54 Page 58 


010146 


011512 
012605 


022701 


000040 


011306 
013166 


032624 


177776 


003622 
003650 


000014 


000026 
003710 


003710 


003710 
000026 


002114 


177776 


.SBTTL COMPARE DATA 
| SRRESERESEEEEEREEEEEEREREDEDEREEEEE 


. COMPARE DATA 


;Called By 

‘ioce To 

:Inputs 

‘Telates Troute | 
: ister Inputs : 
‘Ranioter Outputs: 


CMPDAT: : 
PuUS <R1,R2,R3,R5> 
MOV R1,-CSP) 
MOV na’ cep) 
MOV “$382 
MOV 
CMP P. +ROECRS), P. BCNTCR3) 
BEQ 
MOV ST,R 
MOV @LsSERRTBL ,R2 
MOV CR5)+,CR2)+ 
MOV CR5S)¢,CR25+¢ 
MOV CRS)+,CR2)+ 
MOV CRS), CR2) 
POP <RS,R3,R2,R1> 
MOV CSP)+,R5S ; 
MOV (SP)+,R3 ; 
MOV (SP)+,R2 ; 
MOV CSP)+,R1 ; 
JSR PC ,ERRTLY 
CLRB ERRTYP+i1 
JSR PC ,.PRIERR 
JMP 45$ 
S$: CLR CMPERR 
BIC #ODDFLG,LUNFLG(R4) 
MOV P .BCNTCRS).RB 
CLR Ro 
BIT ¢8ITO,RS 
BEQ 10$ 
BIC @BITC,.RS 
BIS #ODDFLG,LUNFLG(R4 ) 
103: MOV #BYTADD,.R1 
CMP @3,L$TEST 
BNE 11$ 
MOV @WRTIBUF -2,R2 
BR 12$ 
11$: MOV @WRTBUF ,.R2 
123: MOV ROBUF , R3 
MOV #DATBL RS 
14$: CMP CR3)-, (R2)+ 
BEQ 25 
CMPB LOBYTECR3),LOBYTECR2) 
BEG 15$ 
INC CMPERR 
CMP @TBLEND,R1 


SEQ 113 


;SAVE R1,R2,R3,R5 
TACK 


TACK 
;AS MANY BYTES READ AS WRITTEN ? 
;BRANCH IF YES 
;PUT THE RLS TABLE ADDRESS IN RS 
;PUT THE ERROR TABLE ADDRES IN R2 
;MOV THE RLS TABLE TO THE ERROR TABLE 
; 


; 
;RESTORE _— 


OP STACK INTO 


= 
w 
~ 
> 
oO 
m 
bs 
Zz 
a 
OQ 
x 
ul 


OP STACK INTO R1 


;GO TALLY THE ERROR 
:CLEAR THE a POINTER 


CMPERR 
:CLEA AR THE ODD BYTE COUNT FLAG 
;PUT THE TAPE RECORD BYTE COUNT IN R8& 
;CLEAR THE BYTE ADDRESS COUNTER 
:IS THE BYTE COUNT ODD 
BRANCH IF NOT 


TE FLAG 
; 1 POINT TO THE ADDRESS TABLE 
;ARE WE IN TEST 3 ? 
;NO, SO JUST SET RDBUF IN BUFADR 
;LET R2 POINT TO THE WRITE BUFFER 


;LET R2 POINT TO THE WRITE BUFFER 
;LET R3 POINT TO THE READ BUFFER 

LET RS POINT TO THE ERROR DATA TABLE 
;COMPARE THE FIRST WORD OF DATA 
;BRANCH IF THEY ARE EQUAL 

;COMPARE THE LOW BYTE 

;BRANCH IF EQUAL 

;ADD 1 TO THE ERROR COUNT 

;IS THERE ROOM TO SAVE THIS DATA ? 


- ——— i ee ee eee ee 


_—— 


GLOBAL AREAS 
Cc fa 


OMP ARE 


464 
4648 


+649 
4650 


DAT 
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012605 
0 3 


177776 
177776 
003712 


003712 
177777 


003622 
003650 
177777 
177777 
003712 


003712 


000002 
003712 
000020 


003622 
003650 


000001 
003712 
003622 


011276 
013166 


032624 
013167 
032714 


000001 


177777 


000001 


003712 
003710 


000026 


15$: 


20%: 


25%: 
30$: 


35$: 


40$: 


4S$: 
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15% 
LOBYTECR3),CRS 
LOBYTECR2),ONE 
RO,CR1)+ 

CRS) 


RO 
HIBYTECR3) ,HIBYTECR2) 
20% 


CMPERR 
@TBLEND,R1 


20$ 
HIBYTECRS 
RO,CR1I)+ 


3)¢ 


),CRS 
HIBYTECR2),ONECRS 


) 


14 
@ODDFLG,LUNFLGC(R4 ) 


$ 
C(R3),CR2) 
35% 
CMPERR 
@TBLEND.R1 
35% 
CR3),CRS) 
ae 


° 1) 


PC ,PRIERR 
45$ 
<R5,R3,R2,R1> 

RS 


rt ne ee — 


SEQ 114 


;°00 1 TO THE OR COUNT 

;ROOM TO SAVE THIS DATA ? 

;BRANCH IF NOT 

sHI READ BYTE TO LOW SAVE BYTE 
s;HIGH WRITE BYTE TO HIGH SAVE BYTE 
; SAVE ' ADDRESS T 
;POINT RS TO THE NEXT TABLE LOCATION 
;ADD 1 TO THE BYTE COUNTER 


; BRANCH 
;ADD 2 TO THE BYTE COUNT 
;HAVE WE COMPARED THEM ALL ? 


;NO, DO SOME MORE 
;WAS IT - ae BYTE COUNT ? 


COUNT 
:1S THERE ROOM FOR THIS DATA ? 
;BRANCH IF NOT 
;LOW READ BYTE IN THE LOW SAVE BYTE 
;LOW WRITE BYTE TO HIGH SAVE BYTE 
THE ADDRESS TO PRINT 


;DID WE HAVE ANY ERRORS ? 

sBRANCH TO EXIT IF NOT 

;POINT RS TO THE DATA COMPARE ERROR TABLE 
;POINT R2 TO THE ERROR TABLE 

;MOVE THE DATA COMPARE COMPARE TABLE 

;TO0 THE ERROR TABLE 

: 


; 
sRESTORE THE REGISTERS 
STACK INTO RS 


OP STACK INTO R1 


:GO TALLY THE ERROR 
;CLEAR THE UPPER BYTE OF ERROR TYPE 
;GO PRINT THE ERROR 


IT 
"RESTORE THE REGISTERS 
ORS 


STACK INTO Ri 
;RETURN 


ee ee ee 


GLOBAL AREAS 
UNJAM 


ee 


S2 
4653 
54 
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000026 


.SBTTL UNJAM 
j PRSOSEREEEEEEEESEEEEESEREEEEEDEEES 


; 
UNJAM 


;Called By 
:;Calls To 


So 
sRegister Inputs : 
;Register Outputs: 
; 


UNJAM: : 
TST DUMPKT 
BEQ 15$ 
cH SECRNS CMDSEQ(R4) 
MOV tROSEaCR4) SAVDIF 
SUB SECRNS , SAVOIF 
ADD AVDIF , CMDCNT 
ADD SAVDIF ,RSPCNT 
BIC ec _PCFLAG 
SUB SAVDIF . OBUFDL(R4) 
Bcc S$ 
DEC OBUFDH(R4 ) 
S$: CMP oN. SUBCNT 
CLR SUBCNT 
10$: INC SUBCNT 
DEC SAVOIF 
BNE S$ 
15$: gIs @SEREXC, LUNFLG(R4) 
NOP ; TEMP 
RTS 
ENDMOD 


;ARE WE ISSUEING NULL COMMANDS 
THEN EXIT 
HE — OUT ? 


XI 
;SET UP TO UNJAM THE QUEUES 
;SUBTRACT CURRENT FROM THE HIGHEST 
: ADJUST Ly. LRESPONS COUNT 


; T SPONSE COUNT 
Ca THE ALL COMMANDS ISSUED FLAG 
sADUST THE OBJECT COUNT 


;GET OUT IF CARRY 
; OTHERWISE , ADJUST THE HIGH WORD 


;SE1 THE SERIOUS EXCEPTION FLAG 
;RETURN 


SE@ 115 


eee 
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CLEAR EOT 


-SBTTL CLEAR EOT 


4691 j OO6060604000000066060464640806040008 
4692 3 
4693 ; CLEAR EOT 
4694 : 
4695 
4696 033550 CLREOT:: 
4697 033550 PUSH <R1,R2,R4> ;SAVE R1, R2. AND R4 
033 010146 MOV R1,-CSP) ;;PUSH R1 ON STACK 
033 010246 MOV R2.-CSP) ;;PUSH R2 ON ST 
33 01 MOV R4,-CSP) ;;PUSH R4 ON ST 

4696 033556 005002 CLR Re ;CLEAR OUT R2 
4699 033560 012701 177776 MOV #-2.,R1 ;SET Ri TO THE FIRST UNIT 
4700 03 012704 002322 MOV @LUNO ,R4 ;LET R4 EQUAL THE FIRDT LUN 
4701 033570 062701 900002 S$: ADD #2.,R1 ;ADD 2 TO THE UNIT POINTER 
pth | 7 062702 000001 ADD #1.,R2 ;ADD 1 TO R2 
470 062704 000224 ADD @LUNSTP ,R4 ;SET R4 TO THE NEXT 
4704 0 pos Hh 000004 003526 BIC @E0T ,DRINUS(R1) ean THE EOT op IN VORINUS 
4705 033612 37 003706 CLR VEOT ;CLEAR THE EOT FLAG 
4706 033616 C23702 002012 108%: CMP LSUNIT,R2 ;HAVE WE DONE THEM ALL 
4707 033622 001362 BNE 53 ;NO, KEEP GOING TILL ALL DONE 
4708 Oaress POP <R4,R2,R1> ;sRESTORE R4, R2, AND R1 

i] 4 012604 MOV (SP )+,R4 3; 3POP STACK INTO R4 

03 012602 MOV (SP)+,R2 ;;POP STACK INTO R2 

0336 012601 MOV (SP)+,R1i ;;POP STACK INTO R1 
4709 033632 900240 NOP ; TEMP 
4710 033634 000207 RTS PC ;RETURN 


—— = 
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| SEED SETUP AND SAVE 


-SBTTL SEED SETUP AND SAVE 


{ SSSSSSSSSSSSSSSSSKSHSSSKSSSHSSSSEAEE 








; SEED SETUP 
; 
SDOSTUP: : 
PUSH <R1,R4> 3 
MOV Ri, -CSP) ;;PUSH R1 ON STACK 
MOV R4,-CSP ;;PUSH R4 ON STACK 
MOV LSUNIT,.R1 3 
MOV @LUNO ,R4 3 
S$: MOV SED1(R4). SEEDICR4) ; 
MoV SED2(R4) . SEED2CR4) 3 
MOV SED3S(R4) , SEEDS(R4) 3 
ADD @LUNSTP ,R4 : 
DEC i 3 
BNE 5% ; 
PoP <R4,R1i> ; 
MOV CSP )+,R4 3:;POP STACK INTO R4 
MOV CSP)+,R1 3;P0P STACK INTO R1 
NOP TEMP 
RTS eC 3 
| $666000000000000000000000000000086 
: 
; SEED SAVE 
i 
37 033714 SDSAVE: : 
47 : & PUSH <R1,R4> : 
4 010146 MOV Ri, -CSP) :;PUSH R1 ON STACK 
4739 & ot 70 12 MOV vacate a ::;PUSH R4 ON STACK 
MOV UNI : 
47 0 108 oos823 MOV SLUNO ,R4 ; 
aK 8 000174 5$: MoV SEEDICR4). SEDICR4) : 
47 000176 MOV CR4), SED2CR4) ; 
474 0 000206 000200 pd SEEDS(R4) , SEDS(R4) : 
474 | DEC Ri ; 
a7 i BNE S$ ; 
474 POP <R4,R1L> $ 
0 MOV CSP )+,.R4 ;:;P0P STACK INTO R4 
0 MOV (SP)-,R1 ;:;PO0P STACK INTO Ri 
47 NOP TEMP 
4749 0837 ? RTS sé , 


GLOBAL 
PATTERN 


AREAS 
CLEAR 


033772 
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.SBTTL PATTERN CLEAR 
{ PPRSAEESEEEAAEREREASEEEREEEEREEEEE 


; 
; PATTERN CLEAR 


; THIS ROUTINE DOES NOT SAVE R4 AND THEREFORE SHOULD NOT BE CALLED FROM ANY 
;PLACE OTHER THAN A TEST. 


PATCLR: 
012704 002322 @LUNO ,R4 A 
064 000024 1$: CLR PATSAV(R4) ; 
022704 003216 CMP OLUNS ,R4 $ 
001403 BEQ $ 
2704 000224 ADD #LUNSTP ,R4 ; 
000770 BR : 
000240 2s: NOP ; TEMP 
000207 RTS PC : 
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-SBTTL CORE DUMP 


f SSSSSSESSESSESESEESEHEAHEKESEEESE*ASEEEES 


; 
; CORE DUMP 


; THIS ROUTINE _* ot a TO DUMP ALL CRITICAL MEMORY LOCATIONS ON 


;OCCURRENCE OF ERRORS, 


N ENEABLED BY “= OPERATOR VIA THE SOF TWARE 
It Is INTENDED PRIMARILY AS AN AID TO DEBUGGING THE 


;QUESTIONS. 
:PROGRAN. BUT MAY PROVE USEFUL IN ANALYZING CERTAIN DEVICE ERRORS 
CORDMP : 
PUSH <R1,R2> 
010146 MOV Ri, -CSP) fete Ri ON STACK 
010246 Vv R2,-CSP) PUSH R2 ON STACK 
PRINTF @DUMP,R1.R2,R3., Ra. RS 
010546 MOV RS. -(CSP) 
010446 MOV R4, -CSP) 
010346 MOV R3,-CSP) 
C10246 MOV R2,-CSP) 
010146 MOV R1,-CSP) 
012746 020344 MOV @DUMP , -( SP) 
012746 000006 MOV #6, -(SP) 
010600 MOV SP RO 
104417 TRAP CSPNTF 
062706 0000616 ADD #16,SP 
; MOV a ke ;PUT STARING ADDRESS IN R1 
: MOV UNO ,R2 AND ANOTHER COPY IN R2 
31% PRINTF sounPS Al. (R2),2CR2), 4cR2), ECR2) 
: 
: ADD #10,R1 ;UPDATE Ri 
: ADD #10,R2 ; UPDATE ae 
: CMP #IOERTB,.R1 ;ARE WE AT THE END OF DUMP AREA 
$ BHI is ;KEEP EOING IF NOT 
012701 002322 MOV @LUNO,R1 ;PUT STARING ADDRESS IN Rl 
012702 002322 MOV @LUNO,R2 ;AND ANOTHER COPY IN R2 
1$ PRINTF 2.R1,(R2),20R2),4(R2),60R2) 
016246 000006 MOV 6(R2), -C SP) 
016246 000004 MOV 4(R2), -( SP) 
016246 000002 MOV 2(R2),-CSP) 
011246 MOV C(R2),-CSP) 
010146 MOV R1,-CSP) 
012746 020466 MOV aDUMP2 , -( SP) 
012746 MOV 06, -(SP 
0106 MOV SP ,RO 
104417 TRAP CSPNTF 
062706 0v0016 ADD #16,SP 
062701 000010 ADO #10,R1 ;UPDATE R1 
062702 000010 AOD #10,R2 ;UPDATE R2 
022701 002546 CMP @LUN1,R1 ;ARE WE AT THE END OF DUMP AREA 
101351 BHI i$ ;KEEP GOING IF NOT 
012701 003442 MOV #PCMDBF ,R1i :PUT STARING ADDRESS IN Rl 
012702 003442 MOV #PCMDBF ,R2 :AND ANOTHER COPY IN R2 


SEQ 119 


nT 
ee ee — <= 


<< —— 
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CORE DUMP 
4808 034156 PRINTF @LINE 
034156 012746 020524 MOV LINE , -( SP) 
034162 012746 000001 MOV #1,-(SP) 
034166 010600 MOV SP ,RO 
034170 104417 TRAP CSPNTF 
034172 062706 000004 ADD #4, SP 
4809 034176 2s: PRINTF @#DUMP2,R1,(R2),2CR2),.4(R2),.6(R2) 
034176 016246 000006 MOV 6(R2),-CSP) 
034202 016246 000004 MOV 4(R2),-CSP) 
.e) 016246 000002 MOV 2(R2),-CSP) 
034212 011246 MOV (R2),-CSP) 
034214 010146 MOV Ri, -¢(SP) 
034216 012746 020466 MOV 2,-(SP) 
034222 012746 MOV #6,-CS 
034226 010600 MOV P,RO 
034230 104417 TRAP CSPNTF 
4910 034232 062706 000016 ADO #16,SP 
4811 034236 062701 000010 AOD #10,R1 ; UPDATE R1 
4812 034242 C62702 10 ADD #10,R2 ;UPDATE R2 
4813 034246 022701 005252 CMP @RSPBF1,R1 ;ARE WE AT THE END OF DUMP AREA 
rete: 034252 101351 BHI es ;KEEP GOING IF NOT 
4816 034254 012701 010732 MOV @IOSTAT,R1 ;PUT STARING ADDRESS IN Ri 
4817 034260 012702 010732 MOV @IOSTAT,R2 ;AND ANOTHER COPY IN Re 
4818 034264 PRINTF INE 
034264 012746 020524 MOV @LINE , - CSP) 
034270 012746 000001 MOV #1,-CSP) 
034274 010600 MOV P,RO 
034276 104417 TRAP CSPNTF 
034300 062706 000004 DD #4 ,SP 
4819 034304 3e: PRINTF @DUMP2,R1,.(R2),20R2).4(R2),6(R2) 
034304 016246 000006 MOV 6(R2).-CSP) 
034310 016246 000004 MOV 4(R2),-CSP) 
034314 016246 000002 MOV 2(R2),-CSP) 
034320 011246 MOV (R2),-CSP) 
034322 010146 MOV (SP) 
0343524 012746 020466 MOV @DUMP2 , -C SP) 
eats yt See 000006 MOV #6, -(SP) 
034336 104417 TRAP CSPNTF 
4820 034340 062706 000016 ADD #16,SP 
4621 034344 062701 000010 ADO #10,R1 ;UPDATE R1 
4822 034350 062702 000010 ADD #10,R2 ;UPDATE Re 
4823 034354 022701 010756 CMP #ITOERTB ,R1 ;ARE WE AT THE END OF DUMP AREA 
sass 034360 101351 BHI $ ;KEEP GOING IF NOT 
4826 034362 PRINTF INE 
034362 012746 020524 Vv @LINE , -( SP) 
034366 012746 000001 MOV #1,-CSP) 
034372 010600 MOV SP ,RO 
034374 104417 TRAP CSPNTF 
034376 062706 000004 ADD #4 ,SP 
4827 034402 POP <R2,R1> 
4828 034406 000240 ; 


————— ee ee — 


LLL TTT LT 


SEQ 121 
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GLOBAL AREAS 
CORE OUMP 


4830 


-_—_ a ee Ee Ee Se 


eee eee — 


GLOBAL. AREAS 
BUFFER DUMP 


4846 034450 


MACRO YOS.02 


016301 
012702 


010146 
012746 
012746 
010600 
104417 
062706 


016246 
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.SBTTL BUFFER DUMP 
j SPHERE SESASEEAASAEEEEEEEEEREEDEEES 


; 
; BUFFER DUMP 
; THIS ROUTINE WILL PRINT THE READ BUFFER FOR EVERY RECORD READ IN 


;TEST 5S 
BUF DMP : 


1$: 


5$: 


<R1,R2> 
P.BCNTCR3).R 
OR Re 


10(R2), a 


<R2,R1> 
; TEMP 
PC 


SEQ 122 


1 ;GET NUMBER OF BYTES X-FERRED 
;GET BUFFER ADDRESS 
;PRINT NUMBER OF BYTES 


2(R2),4(R2),6€R2),100€R2) 


;ADJUST BUFFER POINTER 
ae BYTE COUNT 

F ZERO GET OUT 
;KEEP GOING IF POSITIVE 


a ea emi. Ant: ect. ‘LLL, a iLL LC LL ELL LD OCLC LL LLL LLL LLL ALLL LOL 


— ~~ 


034536 


MISCELLANEOUS SECTIONS 
BUFFER DUMP 


010146 


012746 
012746 
010600 
104416 
062706 


012746 
012746 


— oo — 
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000200 


036103 
000001 


036157 
000004 


003674 


003526 


. TITLE MISCELLANEOUS SECTIONS 
.SBTTL REPORT CODING SECTION 


BGNMOD 


er ee re eee 


; "THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


LSRPT:: 


1%: 


5$: 


BGNRPT 


PRINTS 
MOV 
MOV 
MOV 
TRAP 
ADO 


PRINTS 


<R1,R4,R5> 

Ri, -(SP) 

R4, -(SP) 
RS,-(SP) 
@DROPIT ,PCFLAG 
5$ 

R1 

L$LUN 

@LUNO, 
L$UNIT,RS 

+ ama , DRINUS(R1) 
15$ 


@STATO1,L$LUN 
P) 


@STATO] 

@STATO2, -C SP) 
@1,-(SP) 

SP ,RO 


CSPNTS 
94,SP 
#STATO4 
@STATO4, -CSP) 
#i, -(SP) 
SP RO 
CS$PNTS 
#4 ,SP 


;;PUSH R1 ON STACK 
;;PUSH R4 ON STACK 
;;PUSH RS ON STACK 


;AR 


E WE DROPPING A_UNIT 


SEQ 1235 


;YES, ONLY PRINT STATS FOR THIS UNIT 


SET R1 TO FIRST _" 
START WITH UNIT O 


;START WITH LUN ~~ FOR UNIT O 


INIT UNIT COUNTE 


;HAS THE DRIVE BEEN DROPPED ? 


;NO, PRINT ITS STATS 
;OTHERWISE GET THE NEXT ORIVE 


4. 


@STATOS, \ phe 7S » GSTERDCR4 ) ,GSTEUVACR4 ) 


GSTEVACR4 ) 
GSTERDC(R4),-CSP) 
GSTEWRC(R4),-(SP) 
at tal 


SP RO 
C$PNTS 


——————————— 


MISCELLANEOUS SECTIONS 
REPORT CODING SECTION 


034722 062706 
4929 
4930 034726 
034726 016446 
034732 016446 
034736 012746 
034742 012746 
034746 010600 
034750 104416 
034752 062706 
4931 
4932 034756 
016446 


034756 
034762 016446 
0347 

4933 


4934 erate 


4935 
4936 035036 
0350 


4937 


4938 035062 
035062 


4939 
4940 Oeette 


035152 062706 


i -= eee ee 
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000012 


ADD 
PRINTS 


#12,SP 

@STATO6, he si GSF TROCR4) 
GSFTRDCR4), -C SP) 
GSFTWR(R4), -(SP) 
@STATO6, -(SP ) 
#3,-(CSP) 

SP ,RO 

CS$PNTS 

#10,SP 

#STATO7 , GHRDWRC(R4 ), GHRDRDCR4 ) , GHRDUACR4 ) 
GHRDUACR4), -(SP) 
GHRDRDCR4), -C SP) 
GHROWRCR4), -C SP) 
@STATO7, -CSP) 
@4,-CSP) 

SP ,RO 

CS$PNTS 

#12,SP 

@STATO8S , GMEDERCR4 ) 
GMEDER(R4 ),-CSP) 
@#STATOSB, -(SP) 
#2,-CSP) 

SP RO 

C$PNTS 

#6 ,SP 
#STATOS,GDCERRCR4) 
GDCERRC(R4), -C SP) 
#STATOS, -CSP) 
#2,-CSP) 

SP, 

CS$PNTS 

#6, SP 

pe Mah?  vaey GOTHRDC(R4) , GOTHUACR4 ) 
GOTHUACR4), -CSP) 


#12,S°P 
pA PS gach dae .GWRBY3C(R4),GWRBY2CR4 ), GWRBY1ICR4 ) 


SP, 
CSPNTS 
#14,SP 


MISCELLANEOUS SECTIONS 
REPORT CODING SECTION 


4941 


4942 035156 
56 


4943 
ADG4 


4945 
4946 


4947 
4948 


4949 
4950 


4951 


4952 
0 


4953 


4954 
0 


035212 
035216 


035276 
035302 
0 


35 
035372 
035376 


010600 
104416 
062706 
012746 
012746 
010600 
104416 
062706 


012746 
012746 
00 


016446 
016446 
016446 


MACRO YOS.02 


PRINTS 


Monday 26-Aug-85 09:54 Page 65-2 


4), GROBY3(R4) ,GROBY2(R4) ,GROBY1(R4 ) 


#14,SP 


#STAT13,GCRORPCR4) 
GCRORPC(R4),-CSP) 
@STAT1i3,-CSP) 

$2, -(SP) 

SP ,RO 

CS$PNTS 

06 ,SP 


@STATO3 
@STATO3, -(SP) 
-(SP) 


SP. RO 
CSPNTS 
64,S5P 
@STATO4 


@STATO4, -CSP) 
o° -(SP) 


CPNTS 
SP 


@STATOS,PSTEURCR4). _PSTERD(R4),PSTEUACR4) 
PSTEROC RA): - (SP) 

PSTEWRCR4), -(SP) 

@STATOS, -(SP) 


64, -(SP) 
SP ,RO 
C$PNTS 
#12,SP 
@STATO6.PSFTWRCR4),PSFTROCR4 ) 
PSF TRDCR4),-CSP) 
PSFTWRCR4),-CSP) 

#3, -(SP) 

SP ,RO 

CSPNTS 

#10,SP 


@STATO7, ‘gg (ala . PHRDRD(R4 ) , PHROUACR4 ) 


PHRDWR(R4), -(§P) 


SEQ 125 


—— ee ee ee 
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REPORT CODING SECTION 


035402 012746 036256 MOV @STATO7, -(SP) 
35406 012746 000004 MOV 64,-(SP) 
035412 01 MOV *RO 
035414 104416 TRAP § C$PNTS 
035416 062706 000012 $12,SP 
035422 PRINTS #STATO8,PMEDER(R4) 
035422 01 000116 MOV PMEDER(R4), -(SP) 
035426 012746 036314 MOV @STATOS, -(SP) 
035432 012746 MOV 92, -CSP) 
35436 01 MOV SP RO 
035440 104416 TRAP C$PNTS 
035442 062706 000006 ADD 86 ,SP 
035446 PRINTS @STATO9, POCERR(R4) 
035446 016446 120 MOV PDCERR(R4), -(SP) 
035452 012746 036360 MOV @STATOS, -(SP) 
035456 012746 000002 MOV @2,-(SP) 
035462 01 MOV SP.RO 
035464 104416 TRAP C$PNTS 
035466 062706 000006 ADD #6, SP 
035472 PRINTS #STATLO, POTHURCR4), POTHRD(R4),POTHUACR4) 
35472 016446 000126 MOV POTHUACR4), -(SP) 
035476 016446 000124 MOV POTHRD(R4). -(SP) 
035502 016446 000122 MOV POTHWR(R4), -(SP) 
35506 012746 036424 MOV @STATLO, -(SP) 
035512 012746 MOV .-(SP) 
035516 0106 MOV RO 
035520 104416 TRAP C$PNTS 
035522 062706 000012 @12,SP 
035526 PRINTS @STAT11.PWRBY4(R4),PWRBY3(R4),PWRBY2(R4), PWRBY1(R4) 
035526 01 000154 MOV PWRBY1(R4), -(SP) 
035532 016446 000156 MOV PWRBY2(R4). -(SP) 
035536 016446 000160 MOV PWRBY3(R4).-(SP) 
035542 01 000162 MOV PWRBY4(R4).-C(SP) 
035546 012746 036462 MOV @STAT11, -(SP) 
035552 012746 MOV #5, -(SP) 
035556 0106 MOV RO 
035560 104416 TRAP C$PNTS 
035562 062706 000014 614, SP 
035566 PRINTS #@STATi2. PROBY4(R4), PROBYS(R4), PROBY2(R4), PROBY1(R4) 
035566 016446 000164 MOV PROBY1(R4), -(SP) 
035572 016446 000166 MOV PRDBY2(R4), - teP) 
035576 016446 000170 MOV PRDBY3(R4).-(SP) 
035602 016446 000172 MOV PRDBY4(R4). -(SP) 
03 012746 036534 MOV @STATi2, -(SP) 
035612 012746 MOV #5,-(SP) 
035616 01 MOV SP RO 
035620 104416 TRAP § C$PNTS 
035622 062706 000014 DD $14,SP 
035626 PRINTS @STAT13,PEDRP(R4) 
035626 016446 000130 MOV PEDRP(R4), -(SP) 
035632 012746 036606 MOV @STAT13, -(SP) 


MISCELLANEOUS SECTIONS 
REPORT CODING SECTION 


4979 035756 
4980 orares 


4961 
4993 


_ —— eee 
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000200 003674 15%: 


002216 20%: 


25%: 


C$PNTS 
06 .SP 
@DROPIT .PCFLAG 


1$ 
CLOCK 
25% 


——_ ee ee 


;ARE WE DROPPING A UNIT 


YES. ONLY PRINT STATS FOR THIS UNIT 
UN BLOCK 


NOT 
;ELSE, DO IT AGAIN 
CLOCK ENABLED 
HEN CAN’T PRINT TIME 


> Ps 
OTIME,<B,HOURS>,<6,MINUTE>,<B,SECOND>, 


SECOND. (SP) 
MINUTE. (SP) 
-(SP 


S 
<R5,R4,R1> 
RP 


J$ JMP 
L10007-2-. 


;RESTORE REGS 


MISCELLANEOUS SE 
REPORT CODING SECTION 
4995 
4996 
4997 035770 045 
4996 036036 045 
4999 036061 045 


5000 0 
5001 036157 045 
5002 036215 045 


5003 0 045 
| 5004 036314 C45 
5005 036360 045 
5006 036424 045 
5007 0 045 
5008 036534 945 
5009 0 O'S 
5010 
5011 
$012 036642 


036642 
036642 104425 


— 


oro MACRO YOS.02 Monday 26-Aug-85 09:54 Page 66 


STATEMENTS FOR PRINT CALLS 
?SNSNSASTATISTICAL REPORT FOR UNIT #01? 
?SNSA IN GCR MODESN? 


:FORMAT 
STATO1: .ASCIZ 
STATO2: .ASCIZ 
STATOS: .ASCIZ 
STATO4: .ASCIZ 
STATOS: .ASCIZ 
STATO6: .ASCIZ 
STATO7: .ASCIZ 
STATOSB: .ASCIZ 
TATOS: .ASCIZ 
STAT10: .ASCIZ 
STAT11: .ASCIZ 
STATi2: .ASCIZ 
STATi3: .ASCIZ 
.EVEN 
ENDRPT 
10007: 
TRAP 


?SNSA IN PE MODESN? 
?SNSSBSSESSSSAWRITESSSSAREADSSSSAUNIT ACCESS? 


?8NSASTATUS ERRORS 
?SNSASOFT ERR 
?SNSAMEDIA 
?SNSADATA CMP ERRS 
TSNSAOTHERS 
?SNSABYTES WRITTEN 
?8.48ABYTES READ 
?SNSATIMES DROPPED 


C$RPT 


8D88D88S78A07 


6D8SS7SA08S78A07 
SS 7SAOSDESS 78A07 
8808808? 


#0 

SD3KA , SZ36A ,SZ38A , 67237 
SD3SA ,SZ36A ,SZ58A , 8237 
SD8SNEN? 


SEQ 128 
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INITIALIZE SECTION 


a Hey 
oe 
ss ie 


ss is 
be 
pike 





50S Os vols 





012700 
104447 


103414 
012700 
104447 
103410 
012700 
104447 
103471 
012700 
104447 
103465 
112737 
005037 
005037 
pf: HE 
105737 
001003 
012737 
013737 


000037 


000035 


000036 


000001 
003700 
003622 
000004 
002226 
000002 
003732 
002322 
000210 


000014 
003442 


003536 


003750 


003732 


003732 
003734 


. SBTTL 


INITIALIZE SECTION 


ee 


SEQ 129 


s¢ 
; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. 


LSINIT:: 


STINIT: 


START: 


i$: 
S$: 
10$: 


153: 


BGNINIT 


" READEF EF .START 
MOV 


@EF .START,RO 
TRAP C$RE 
Bc TE START 
BCS 
READEF #€F .RESTART 
V @EF RESTART RO 
TRAP C$RE 
BCOMPLETE START 
BCs § 
READEF #€F.NEW 
v OEF _NEW,RO 
TRAP §CSREFG 
BC TE NUPASS 
cs NUPAS 
READEF @€F . CONTINUE 
@EF . CONTINUE ,RO 
TRAP  CS$REF 
BCOMPLETE NUPASS 
cs NUP 
MOVB #1,DAYS 
CLR PASCNT 
CLR CMPERR 
MOV OTF .GCR,. FORMAT 
TSTB8 DENSITY 


BNE i$ 
MOV OTF .PE ,FORMAT 
MOV Pagal galeaaai 


MOV Ri R2 ' 
FUR ; 
CLR CR1I)-+ 
fae R2,R1 
BNE 10% 
ADD $14,R1 
CMP OPCMDBF ,R1 
BNE § 
CLR CRi)+ 
CMP ; 
BNE 15$ 


;SET TO FIRST DAY 


sBRANCH IF SO 
3;SET INITIAL TEST DENSITY TO PE 


sSAVE INITIAL TEST ee i 
;SET Ri ea FIRST 


yh ay CLEAR AHEA 
s;ARE WE a BR OF THE CLEAR AREA 
1 TO THE NEXT LUN BLOCK 

VE WE DONE THEM ALL 

;GO0 CLEAR THE NEXT LUN BLOCK 

;CLEAR THE LOCATION AND GET THE NEXT 


;HAVE WE CLEARED THEM ALL ? 
;NO, KEEP GOING 


= ee ee ee 


| 


| Bisigcn 


| 


5059 037014 
37020 


+4 

09 
ae 
44 


012761 


012764 
012764 





000174 
000176 
000200 


003704 


25%: 


pees Rese So 


CLR 


Fa 
4 
«4 


a 
fool 
~« 


ne aeeee 28828 S05 
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-IZE SECTION 


@R 

@RS3 , SEDS(R4) 
@LUNSTP .R4 

R2 

25% 


@F AIL .ORINUSC(R1 ) 
60% 


@OROP , DRINUS(R1 ) 
50% 


UNDROP (R4 ) 
AVE ,ORINUSCR1) 


@OCHDBE . CUSAY cna 
COLSA 
Aa). Crossvina> 


CR4) . RNUSAV( 
URSPBF CRS) ROLSAVCRA) 













SE@ 150 


T R4 TO THE FIRST LUN 
T UP R2 

UP THE SEED IN THE LUN 

T UP THE SEED IN THE LUN BLOCK 
T UP THE SEED IN THE LUN BLOCK 
;SET UP THE NEXT LUN BLOCK 


: DECREMENT 
;0ID0 YOU DO THEM ALL 









;CLEAR THRE RETRY COUNTER 
sSET WW 
;SET R4 TO THE FIRST LUN 


:CLEAR THE PROGRAM CONTROL FLAG. 
;CLEAR THE EOT FLAG 

sSET UP_THE DROP UNIT FLAG 

s ADD 1 TO PASS COUNTER 


s;PUT COMMAND BUFFER ADDRESS IN R2 
;CLEAR THE BUFFERS 

;ARE WE AT THE END OF THE BUFFER ? 
;KEPP GOING TILL WE ARE 


;SET R4 TO THE FIRST LUN 
UP R2 


;sCLEAR R1 
;CLEAR RS 


sHAS THIS DRIVE FAILED ? 
;YES, GET NEXT UNIT 


DID THIS ORIVE OROP LAST TIME 
:0 SE CLEAR THE DROP COUNTER 
SET UP ALL DRIVES TO AVAILABLE 












ET UP NEU RESPONSE BUFFER SA SAVE 
SET UP OLD RESPONSE BUFFER SAVE 





an 4 
ze 
Huw 
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TIALIZE SECTION 
Sile2 
5113 037264 011064 000000 MOV CRO), TKIPCR4) : 
5114 037270 012064 000002 MOV CRO)+, TKSACR4 ) : 
5115 037274 062764 900002 000002 ADD #2, TKSACR4 ) i 
gi38 037302 011064 000004 MOV CRO), TKUNITCR4 ) ; 
5118 037306 062701 000002 60$: ADD #2,R1 ;SET R1 TO THE NEXT UNIT 
5119 037312 0627035 000001 ADD #1. ,F3 ;GET NEXT UNIT 
5120 037316 062704 000224 ADD @LUNSTP ,R4 ;SET UP THE NEXT LUN BLOCK 
$121 037322 005502 DEC R2 ;DECREMENT R2 
sise 037324 001310 BNE 40% :0ID YOU OO THEM ALL 
$124 037326 042737 900002 003674 BIC @NCLKFL ,PCFLAG ;GET READY TO TEST FOR CLOCK PRESENT 
5125 037334 SETVEC #4,@NOCLK,OPRIOO :;SET VECTOR 4 IN CASE NO CLOCK 
037334 012746 MOV #PRIOO, -(SP) 
037340 012746 020646 MOV @NOCLK , -C SP) 
037344 012746 MOV 04, - 
037350 012746 0900003 @3,-(SP) 
037354 104437 TRAP C$SVEC 
037356 C62706 000010 ADO #10, 
126 037362 005737 177546 TST KWCSR ;IS THE CLOCK THERE ? 
127 037366 000240 NOP 
ae 037370 000240 NOP 
130 037372 CLRVEC 04 ;RETURN VECTOR TO TRAP CATCHER 
037372 012700 000004 MOV #4,R0 
037376 104436 TRAP CsCVvEC 
5131 037400 032737 000002 003674 BIT @NCLKFL ,PCFLAG ;WAS A CLOCK PRESENT ? 
5132 037406 001016 BNE ISTART ;NO CLOCK, START REGULAR INIT 
5133 037410 SETVEC #100, OKWHDL , #PRIOO ;SET UP THE CLOCK VECTOR 
037410 012746 MOV #PRIOO, -( SP) 
037414 012746 020702 MOV aK .* 
037420 012746 000100 MOV #100, -(SP) 
037424 012746 000005 MOV #3,-(SP) 
037430 104457 TRAP C$sv 
037432 062706 000010 ADD #10,SP 
ai3s 0 012737 000100 177546 MOV #100 ,KWCSR ;ENABLE THE CLOCK INTERUPTS 
5136 037444 005001 ISTART: CLR Ri ;SET R1 TO FIST UNIT 
5137 037446 005037 002074 CLR L $LUN ;SET L$LUN TO FIRST UNIT 
sis 037452 012704 002322 MOV #LUNO ,R4 ;SET R4 TO THE FIRST LUN BLOCK 
5140 037456 032761 000001 003526 1%: BIT @AVB .DRINUS(R1 ) ;SEE IF DRIVE IS PRESENT AND AVAILABLE 
5141 037464 001501 BEG i5$ ;GET THE NEXT DRIVE IF IT ISN’T 
5142 037466 032761 000004 005526 BIT @EOT ,.DRINUS(R1) ;CHECK IF THE ORIVE IS AT EOT 
tes 037474 001075 BNE i5$ ;GET NEXT DRIVE IF IT IS 
$145 037476 012764 000377 000010 MOV 6377, SLTUSE(R4 ) ;SET ALL RESPONSE SLOTS TO THE PORT 
5146 037504 004737 026476 JSR PC,PRTCLR :GO 00 IT 
td 037510 112737 000004 010755 MOVB 64,CROLIM ;CREDITS START AT 4 FOR NEW LUN 
5149 037516 012705 037724 MOV @INITIT,.RS ;PUT INIT TEST TABLE ADDRESS IN R5 
5150 037522 004737 0213566 JSR C,.CMMOSQ@ ;GO DO INIT ON THIS DRIVE 
5151 037526 032761 000001 003526 BIT @AVB ,DRINUS(R1) ;SEE IF DRIVE IS PRESENT AND AVAILABLE 
stag 037534 601455 BEG i5$ ;GET THE NEXT DRIVE IF IT ISN'T 
5154 037536 012764 000377 000010 MOV $377, SLTUSECR4 ) ;SET ALL RESPONSE SLOTS TO THE PORT 


MISCELi ANEOUS 
INITIAL IZE 


AAA AMMAN ANUAN 

SHH PSII III III IAARADAPARARUNUGY 

trt+ Ooo JRAPANK SSS TSAR ane See nt Str 
° 


ViMUUUYVUUUNNY 
Sesoeepooosasaae 
SSSFSEASLSESSLES 


3388 


5205 


037 

037574 
037576 
037604 
037610 
037616 
037622 


037674 


037714 
037720 


037720 
037722 


037724 
037725 


07750 


eae 


104411 
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026476 
000004 
000006 
021366 
000001 


000377 
026476 
000004 


610755 
003526 
000010 


010755 


000010 
010755 
003616 


5$: 


10$: 


158: 


EXTINT: 


;INIT TEST TABLE 
INITIT:: .BY 


L10010 
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JSR PC,PRTCLR 
MOVB 04 ,CROLIM 
ADO @TSTSTP,RS 
JSR PC ,CMMDS@ 
BIT @AVB ,ORINUS(R1) 
BEG iS¢% 
MOV 0377 ,SLTUSE(R4) 
JSR PC ,.PRTCLR 
MOVB 04, CROLIM 
ADD @TSTSTP,RS 
JSR PC ,CMMOSG@ 
MOV 0377 ,SLTUSE(R4 ) 
JSR PC,PRTCLR 
MOVB 04 ,CROLIM 
ADD @TSTSTP,RS 
MOV @AVLB, TSTMSK 
JSR PC, CMMDSG@ 
CLR TSTMSK 
CMP #6. ,R1 
BEQ EXTINT 
ADD @UNTSTP,.R1 
ADD @LUNSTP ,R4 
INC L$LUN 
BREAK 
TRAP C$BRK 
i$ 
EXIT INIT 
TR CSsExIT 
-WORD 1L10010-. 
TE INT 
BYTE - pull 
WOR i 
.BYTE SCC 
.BYTE — 
1 
BYTE ONL 
.BYTE NULPAT 
-WORD 0 
-WORD 1 
BYTE GUS 
.BYTE  NULPAT 
.WORD 0 
-WORD 1 
EVEN 
ENDINIT 
TRAP CsINIT 


SEQ 132 


;SEE IF DRIVE IS PRE 
;GET THE NEXT DRIVE IF IT ISN'T 


;SET 1). ies SLOTS TO THE PORT 


GO 
‘CREDITS START AT 4 FOR NEW LUN 
‘POINT RS TO THE ONL C 
‘GO DO ONLINE ON THIS DRIVE 


;SET ao, See SLOTS TO THE PORT 


: 
;CREDITS START AT 4 FOR NEW LUN 
;POINT RS TO THE GUS COMMAND 
;ALLOW UNIT AVAILABLE ERRORS 
;GO DO GUS ON THIS DRIVE 

;ALLOW NO ERRORS 


;HAVE WE DONE THEM ALL ? 
;GET OUT 

;sGET NEXT UNIT 

;SET UP THE NEXT LUN BLOCK 
;GET NEXT UNIT 


;GO DO THE NEXT ONE 


s INITIALIZATION TABLE 


;SET CONTROLLER CHARACTERISTICS TABLE 


;ONLINE TABLE 


;GET UNIT STATUS TABLE 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


5207 037756 
937756 
5206 ps Ue 
037756 104461 
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BGNAUTO 
LS$AUTO:: 

ENDAUTO 
110011: 

TRAP CSAUTO 


SEQ 1%3 


—— ———————— —— . 
oe = ee eee 


eee eee - 
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CLEANUP CODING SECTION 


5210 .SBTTL CLEANUP CODING SECTION 
S2li ; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
asi¢ ; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 
3 -- 

5214 
5215 037760 BGNCLN 
5216 037760 LS$CLEAN: : 
5223 037760 032737 000002 003674 BIT @NCLKFL ,.PCFLAG ;WAS A CLOCK PRESENT ? 
5224 037766 001005 BNE S$ ;NO CLOCK, DO REPORT 
$225 037770 005037 177546 R KWCSR 
5226 037774 CLRVEC #100 

037774 012700 000100 Vv #100,RO 

104436 TRAP CsCveEC 

5227 040002 S$: DORPT 

040002 104424 TRAP CSDRPT 
5228 040004 EXTCLN: EXIT CLN 

040004 104432 TRAP CSExIT 

040006 -WORD 1L10012-. 
S229 
5241 
5242 EVEN 
5243 
5244 040010 ENOCLN 

040010 L10012: 

040010 104412 TRAP CSCLEAN 


MISCELLANEOUS SECTIONS 
DROP UNIT SECTION 


010146 


C10046 


005264 
022764 
001004 
052761 


104451 
005037 


012601 
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000002 
000130 


000072 
000200 


000200 
002232 


000040 
000174 


003732 


003674 


003674 


003526 
003526 


003526 


003526 
000032 
003526 


-SBTTL ODROP UNIT SECTION 


;ee 


SE@ 135 


; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 


DROPUN: : 


5$: 
10$: 


i5$: 


20%: 


25%: 
30$: 


35$: 


<Ri> 


R1,-(SP) 
RO,R1 


Ri 

iia deilenmeta 
PEORPCR4 ) 

10$ 

GCRORP(R4 ) 
eomor rt. PCFLAG 


<RO 
RO, (SP) 


CSP )+ 


7  ORINUS(R1) 
@E0T,ORINUS(R1) 
30$ 

UDROP 
#DROP , DRINUS(R1 ) 
UNDROP(CR4 

| ee paaactaeni ade 
lactate ial 


;SAVE R1 
3; ;PUSH Ri ON STACK 
POINT R1 TO THE DRINUS TABLE 
‘MULTIPLY BY 2 
;ARE WE IN PE MODE ? 
;NO, GO INCREMENT GCR DROPS 
;YES, INCREMENT PE DROPS 
;sKEEP GOING 
; INCREMENT GCR DROPS 
;SET THE UNIT DROP FLAG 


;SAVE RO 
; ;PUSH RO ON STACK 
;GO PRINT UNIT STATS 


RESTORE RO 
; ;POP STACK INTO RO 
;CLEAR THE DROP FLAG 
;D0 WE _ TO CLEAR STATS ON ERROR ? 
:NO, DON’T CLEAR THE STATS 


;;PUSH R2 ON STACK 

;;PUSH R3 ON STACK 
;STARTING ADDRESS OF STATS IN Re 
;END ADDRESS OF STATS IN R3 
;ADD THE LUN BLOCK ADDRESS TO R2 
;ADD THE LUN BLOCK ADDRESS TO RS 
;CLEAR THE LOCATION 
;ARE WE AT THE END OF THE STATS 
;NO, KEEP CLEARING 


;:;POP STACK INTO R3 
 SPOP STACK INTO R2 
;CLEAR THE AVB BIT IN DRIVE IN USE TABLE 
3;IS THE DRIVE AT EOT ? 
;BRANCH IF T 
;CLEAR THE EOT BIT IN ORIVE IN USE TABLE 


;GET OUT 

; SUBTRACT 1 TO DROPPED FLAG 

;SET DRIVE IN USE TABLE TO DROPPED 
;ADD 1 TO THE UNIT DROP COUNT 

;D0 WE HAVE 10. ERRORS ? 


;NO, GET OUT 
;SET THE DRIVE TO FAIL 


;CLEAR THE RESPONSE STATUS 
TORE R1 


;RES 
;;POP STACK INTO R1 
;DELAY FOR AWHILE 


MISCELLANEOUS SECTIONS 
DROP UNIT SECTION 


012727 
000000 
013727 
000000 


000167 
C00000 


104453 


— ee eee 


MACRO YO5.02 


000024 
002116 
177772 
177756 


000000 
000377 
026476 


000010 


L$DU:: 


L10013: 
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920. ,(PC)+ 
LSDLY,CPC)+ 
-6(PC) 

“22(PC) 

Ri aTKIPCRA) 
0377 .SLTUSECRA) 


PC,PRICLR 


; TEMP 
PC 


DU 
J$ IMP 
L10013-2-. 


C$b0uU 


;FLUSH THE DRIVE 
;SET ALL RESPONCE SLOTS TO PORT 
;GO0 CLEAR THE PORT 


;RETURN 


SEQ 136 


—_—o oO T_T EE KT ST ae ew me -— «= 
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ADD UNIT SECTION 4 ~ = 


5319 .SBTTL ADD UNIT SECTION 
5320 
5321 ;o¢ 
5322 ; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
5323 ; TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
5324 ; TO THE TEST CYCLE. 
5325 ;-- 
5326 
5327 040276 BGNAU 
040276 L$AU:: 
5328 
5334 
5335 040276 EXIT AU 
040276 000167 . WORD J$ JMP 
040300 000000 . WORD L10014-2-. 
5336 
5348 
5349 .EVEN 
5350 
5351 040302 ENDAU 
040302 L10014: 
5352 040302 104452 TRAP CsAU 
5353 040304 ENDMOD 
5354 


<-<<:+- ec a aaa ata ate tC tL LO LL LLL LLL LLL —_— -- - 


- ewe = = 
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ADD UNIT SECTION 
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5357 
ance . TITLE HARDWARE TESTS 
! Sane .SBTTL TEST 1: Basic Function Test 
5407 040304 BGNMOD 
5408 
54 ;+e 
5410 :This test will execute a subset of the legal commands on the writ 
5411 ;sunder test. It serves as a quick verify test to ascertain that the 
$412 sunit can move tape and write/read predictably, without error. he 


;subset of legal commands will be issued in a coherent manner. 


5446 


C05737 
001014 


013746 


105737 
001421 


004737 
012737 


022737 
001011 


012746 
012746 
010600 
104417 


062706 
000410 


003704 
002114 
020527 
000002 
000006 


042306 
002216 


002221 
002220 


002217 
020037 
000004 


000012 
033550 
000100 
0v0002 


020610 
000001 


000004 


003616 
003732 


Ti:: 
STARTI: 


S$: 


GOl: 


BGNTST 


UDROP 


;HAVE ALL UNITS BEEN DROPPED ? 
S$ NO TI 
eer tins 


‘ 3 
;PRINT THE TEST BYPASSED MESSAGE 


;GET OUT IF NONE LEFT TO TEST 


#6, 

TIEXIT 

CLOCK ;1S THE CLOCK ENABLED 

GO1 ;NO, THEN CAN’T PRINT TIME 
eee 


CSP 
SECOND , (SP) 
MINUTE , CSP ) 
-(SP) 


HOURS . (SP) 


SP,RO 
CSPNTF 
#12,SP 


PC ,CLREOT 
GONLB , TSTMSK 


—— 
@TSTPE 
STSTPE,-CSP) 
#1, -(€SP) 

SP ,RO 

CSPNTF 

#4 ,SP 

3$ ;START TEST 


;MAKE SURE EOT STATUS IS CLEAR 
;ALLOW ALREADY ONLINE STATUS 


;ARE WE DOING PE ? 
;NO, PRINT GCR 
;PRINT TESTING IN PE 


ee - 


HARDWARE TESTS 


TEST 1: 


5447 040456 
04 


i 
= 
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Basic Function Test 


012746 
012746 


012705 
004737 


012705 
004737 


020562 
000001 


003616 


003616 


1%: 


3%: 


5$: 


10$: 


15$: 


20%: 


25%: 


30$: 


35$: 


— @TSTGCR 


@TSTGCR, -CSP) 


#1, -(SP) 
SP RO 
CSPNTF 
04,SP 
@TSTSUC.RS 
PC, SCHED 
@TLONL RS 
PC, SCHED 
UDROP 
S$ 
TIEXIT 
TSTMSK 
OTIREW,RS 
PC, SCHED 
UDROP 
10$ 
TLEXIT 
@TILEOT,RS 
. SCHED 
UDROP 
15$ 
T1EXIT 


@T1iSKR,RS 
PC ,SCHED 


UDR 
20$ 
TIEXIT 


#LED0B , TSTMSK 
@T1SKD,R 


PC ,.SCHED 
#LEDB , TSTMSK 
UDROP 

25$ 
TIEXIT 
6TIREW.RS 
PC ,SCHED 
UDROP 

30$ 
TLEXIT 
@T1iWR1.RS 
PC,SOSTUP 
PC,SCHED 
UDROP 

35% 
TIEXIT 
@T1iWTM,RS 
PC ,SCHED 


——— ee ee eee ee 


SEQ 159 


;PRINT TESTING IN GCR 


;SET UP T? DO A SET UNIT CHAR 
:GO ISSVE THE COMMAND 


;SET UP TO DO AN ONLINE 

;GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;ALLOW NO ERRORS 

;SET UP TO DO A REWIND 

;GC ISSUE THE COMMAND 

;HAVE ALL UNITS BEEN DROPPED ? 
;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO DO 2 TAPE MARK COMMANDS 
;GO ISSUE 1HE COMMAND 

;HAVE ALL UNITS BEEN DROPPED ? 
;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SKIP REVERSE 2 TAPE MARKS 
;GO ISSUE THE COMMAND 

;sHAVE ALL UNITS BEEN DROPPED ? 

;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO ALLOW LEOT DETECTED 
A SPACE TO LEOT 


THE COMMAND 
;DISALLOW LEOT DETECTED 
;HAVE ALL UNITS BEEN DROPPED ? 
;NO, CONTINUE 
;GET OUT IF NONE LEFT TO TEST 


;SET UP TO DO A REWIND 

;GO ISSUE THE COMMAND 

;HAVE ALL UNITS BEEN DROPPED ? 
;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;WRITE 99, Si2 BYTE RECORDS 
;RESET THE RANDOM SEEDS 

:GO ISSUE THE COMMAND 

;sHAVE ALL UNITS BEEN DROPPED ? 
s;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO WRITE A TAPE MARK 
;GO ISSUE THE COMMAND 


- a 


HARDWARE TESTS 
TEST Basic Function 


1: 
5499 
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012705 


40$: 


45$: 


55$: 


60$: 


65$: 


70$: 


75$: 


808%: 


UDROP 
40$ 
T1EXIT 
@TiWR2.RS 
PC ,SOSTUP 
PC ,SCHED 
oP 
45% 
TIEXIT 
@TiIWTM,RS 
PC ,SCHED 
UDROP 
SO$ 
TLEXIT 
@T1IWRS,RS 
PC ,.SOSTUP 
PC ,SCHED 
UDROP 
35% 
TLIEXIT 
@TiWTM,RS 
PC ,SCHED 
UDROP 
60$ 
TIEXIT 
@T1IWR4 RS 
PC, SDSTUP 
PC, SCHED 
UDROP 
65% 
TIEXIT 
@TiWTM,RS 
PC ,SCHED 
UDROP 
70$ 
TIEXIT 
@TiWRS,RS 
PC, SOSTUP 
PC , SCHED 
UDROP 
75$ 
TIEXIT 
@T1iWTM,RS 
PC .SCHED 
UDROP 
80% 
TIEXIT 
@T1WR6E.RS 


;HAVE ALL UNITS BEEN DROPPED ? 
CONTINUE 
GET OUT IF NONE LEFT TO TEST 


;WRITE 84, 525 BYTE RECORDS 
;RESET THE RANDOM SEEDS 

;GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 


ONT INUE 
ot Sor IF NONE LEFT TO TEST 


;SET UP TO WRITE A TAPE MARK 
;GO ISSUE THE COMMAND 

;sHAVE ALL UNITS BEEN DROPPED ? 
;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;WRITE 69, 1038 BYTE RECORDS 
;RESET THE RANDOM SEEDS 

;GO ISSUE Ire E COMAND 

;HAVE ALL UNITS BEEN DROPPED ? 
;NO, CONTI 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO WRITE A TAPE MARK 
;GO ISSUE THE COMMAND 
; HAVE nes UNITS BEEN DROPPED ? 


; 
:GET OUT IF NONE LEFT TO TEST 


;WRITE 54, 1551 BYTE RECORDS 
;sRESET THE RANDOM SEEDS 

;GO ISSUE THE COMMAND 

;HAVE ALL UNITS BEEN DROPPED ? 
;NO, TINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO WRITE A TAPE MARK 
;GO ISSUE THE COMMAND 

;HAVE ALL UNITS BEEN DROPPED ? 
;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;WRITE 39, 2064 BYTE RECORDS 
;RESET THE RANDOM SEEDS 
HE COMMAND 


;sHAVE ALL UNITS BEEN DROPPED ? 
;NO, ONT INUE 
;GET OUT IF NONE LEFT TO TEST 


;SET UP TO WRITE A TAPE MARK 
G9 ISSUE THE C 

;HAVE ALL UNITS BEEN DROPPED ? 
;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;WRITE 24, 2577 BYTE RECORDS 


SEQ 140 


<n ct. A. Al aa LL tt CL CCC: CCL LL LL LLL LLL LLL LLL LL LLL LLL LLL, 


——— = 


HARDWARE TESTS 


TEST 1: 


MACRO i 


Basic Function 


012705 
004737 
005737 
001002 
000137 
012705 
004737 
005737 
001002 
000137 
012705 
004737 


85%: 


95$: 


105$: 


1108: 


1158: 


120$: 


1258: 


JSR 
JSR 
TST 
BNE 
JMP 
MOV 
JSR 
TST 
BNE 
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PC ,.SOSTUP 
PC, SCHED 
85% 

TIEXIT 
@T1LEOT,.RS 
PC ,SCHED 
90% 

TLIEXIT 
@T1IREW,RS 
PC SCHED 


95% 
TLEXIT 
@T1R01,R5 
PC ,SOSTUP 
PC,SCHED 
100% 
TIEXIT 
@T1SKP,RS 
PC, SCHED 
UDROP 
105% 
TIEXIT 
#T1SPC1,R5 
PC ,.SCHED 
110% 
TIEXIT 
@TiSKP,RS 
PC, SCHED 


115% 
TIEXIT 
@TiSPc2.RS 
PC ,SCHED 


120% 
TLEXIT 
#T1SP01.R5 
. SCHED 
125% 
TLEXIT 
@T1iRDS,RS 
PC ,SDSTUP 


—— ee 


SEG 141 


;RESET THE RANDOM SEEDS 
:GO ISSUE THE COMMAND 

;HAVE ALL UNITS BEEN DROPPED ? 
;NO TINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO WRITE LOGICAL END OF TAPE 
:;GO ISSUE THE C 
:HAVE ALL UNITS BEEN DROPPED ? 


;NO TINUE 
;GET OUT IF NONE LEFT TO TEST 


;SET UP TO REWIND 

;GO ISSUE THE C 

;sHAVE ALL UNITS BEEN DROPPED ? 
:NO, CON 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO READ 100 RECORDS 
;RESET THE RANDOM SEEDS 

;GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 


;NO 
;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SKIP A TAPE MARK 
:GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SPACE 84 RECORDS 
;GO ISSUE THE C 

;HAVE ALL UNITS BEEN DROPPED ? 
:NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SKIP A TAPE MARK 
;GO ISSUE THE C 

;HAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SPACE 69 RECORDS 
;GO ISSUE THE C 

SHAVE ALL UNITS BEEN DROPPED ? 
GET OUT IF NONE LEFT TO TEST 


;SET UP TO SPACE 56 OBJECTS 
;GO ISSUE THE COMMAND 

;HAVE ALL UNITS BEEN DROPPED ? 
;NO, CONTI 

3;GET OUT IF NONE LEFT TO TEST 


;SET UP TO READ 39 RECORDS 
;RESET THE RANDOM SEEDS 


es 


021042 
003704 


042306 


130$: 


135%: 


1408: 


145$: 


1508: 


155%: 


1608: 


1658: 


170$: 


JSR 
TST 
BNE 
JMP 
MOV 
JSR 
TST 
SNE 
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TEST 1: Bagic Function T 


PC, SCHED 
UDROP 

130% 
TIEXIT 
@T1ISKR1,RS 
PC, SCHED 


135% 
TIEXIT 
@T1SKP RS 
PC ,SCHED 
UDROP 
140% 
TLEXIT 
#TiRD2.R5 
aD al 


145$ 
TIEXIT 
srigeeas™ 
UDROP 
150$ 
TIEXIT 
eTARD4 RS 
SDSTUP 
* SCHED 
1553 
TIEXIT 
@T1SP03,R5 
PC, SCHED 


160% 
TIEXIT 
@T1SPR1,R5 
PC, SCHED 


165% 
TLEXIT 


@T1SKP1,R5 
PC, SCHED 
170$ 
TLEXIT 
@#T1SPC3.R5 
PC, SCHED 


ee - 


SEQ 142 
160 ISSUE THE COMMAND 

HAVE ALL UNITS BEEN DROPPED ? 

TINUE 

ort OUT IF NONE LEFT TO TEST 
;SET UP TO SKIP REVERSE 4 TAPE MARKS 
;GO ISSUE T 
;HAVE ALL UNITS BEEN DROPPED ? 
3;NO ONTINUE 
;GET OUT IF NONE LEFT YO TEST 
;SET UP TO SKIP TAPE “4RK FORWARD 
;G0 ISSUE THE C 
s HAVE AL!. UNITS BEEN GROPPED ? 
‘GET OUT IF NONE LEFT TO TEST 


;SET UP_TO READ 64 RECORDS 
THE RANDOM SEEDS 


RESET 
‘GO ISSUE THE COMMAND 

‘HAVE ALL UNITS BEEN DROPPED ? 
:NO, CONTI 


;GET OUT IF NONE LEFT TO TEST 


;SET UP re. SPACE 71 OBJECTS 
;GO ISSUE T 

;sHAVE ALL UNITS BEEN DROPPED ? 
:NO, CONTI 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO READ 54 RECORDS 
SEEDS 


: ISSUE THE COMMAND 
;sHAVE ALL UNITS BEEN DROPPED ? 
;NO, CONTINUE 


;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SPACE 66 OBJECTS 
:GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SPACE REVERSE 375 OBJECTS 
:G0 ISSUE THE C 
= VE ALL_UNITS BEEN DROPPED 7? 


T 
ort OUT IF NONE LEFT TO TEST 


;SET UP TO SKIP FORWARD 4 TAPE MARKS 
;GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 

“GET OUT IF NONE LEFT TO TEST 


;SET UP TO SPACE 39 RECORDS 
;GO ISSUE THE COMMAND 


anes oes Ee ee oe 


HARDWARE TESTS 
TEST 1: Besic Function T 


005737 
002 


owl 
dad 


3323; 


ee OO 
DRORS 





~ 
3 
pao ee bee 






MAUL 


a 


MEE SE AY wat nd ed od ow 


ed nd tet 
PEDDIE tot stet ty 
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003704 
042306 





175$: 


180%: 


18653: 


190%: 


1958: 


2008: 


205%: 


2108: 


2158: 


TST 


~ 
w 
~4 


458 3h 


G3 AaG58 TAGS Fh 


+B. 3@ ~ 
Onger + or) 
ANDENW -4 


S th 


175% 
TiEXIT 


@TiSKP RS 
PC, SCHED 


180% 
TIEXIT 


eT ARDS RS 
SDSTUP 


185% 
TLEXIT 
eTiSKP2 
PC. SCHED 
UDROP 
190% 
TIEXIT 
@T1ISPR2,RS 
PC, SCHED 


RS 


195% 
TLEXIT 
@TiSKP ,RS 
PC, SCHED 








HAVE ALL UNITS BEEN DROPPED ? 
GET OUT IF NONE LEFT TO TEST 


;SET UP TO Tee A TAPE MARK 
‘< ISSVE THE COMMAND 
= ALL UNITS BEEN OROPPED ? 


ort OUT IF NOME LEFT TO TEST 


;SET UP_TO READ 624 RECORDS 
sRESET THE RANDOM SEEDS 


:NO, CONTINUE 
GET OUT IF NONE LEFT TO TEST 


;SET UP TO SKIP 2 TAPE MARKS 
:GO ISSUE THE COMMAND 

SHAVE ALL UNITS BEEN DROPPED ? 
3;NO, CONTI 

;GET OUT IF NONE LEFT TO TEST 


SEQ 143 


;SET UP TO SPACE REVERSE 192 OBJECTS 


3GO ISSUE THE COMMAND 
;HAVE ALL UNITS BEEN DROPPED ? 


ONT INUE 
;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SKIP A TAPE MARK 
:GO ISSUE THE COMMAND 
sHAVE ALL UNITS BEEN DROPPED 7? 


. CONTINUE 
T OUT IF NONE LEFT TO TEST 









3NO,. C INVUE 
;GET OUT IF NONE LEFT TO TEST 





sSET UP TO REWIND 

:GO ISSUE THE COMMAND 

oo ALL UNITS GEEN DROPPED ? 
: 


INUE 
GET Out IF NOME LEFT TO TEST 


sSET 4 TO ALLOW LEOT eis 
;SET UP ie TO LEOT 


;G0 ISSUE 

;DISALLOW LEOT DETECTED 
: HAVE ALL UNITS GEEN DROPPED ? 
et OUT IF NOME LEFT TO TEST 


;SET UP TO REWIND 











—_—_ 
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$727 042234 
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1: Basic Function T 


004737 


012737 
000137 
005937 
013737 
104432 
000302 


021042 
003702 
003702 
000002 
000002 
040412 
000004 
040412 


003702 
003734 


003732 
003732 


003732 


603732 


2208: 


2255: 


TIEXIT: 


JSR 


PC. SCHED 


PASS1 
TIEXIT 


PASS1 

OTF .PE ,FORMAT 
225% 

OTF .PE,FORMAT 
GO1 


#TF .GCR, FORMAT 
GO1 


;GO0 ISSUE THE COMMAND 


;IS THIS THE END OF 1ST PASS ? 
;BRANCH IF NOT 

;PASS1 = -1 

WAS 1ST PASS DONE IN PE ? 
;BRANCH IF SO 


;SET TAPE FORMAT TO PE 

sREPEAT TEST. THIS TIME IN PE 
;SET TAPE FORMAT TO GCR 
;REPEAT TEST. THIS TIME IN GCR 


SEG 144 


;RESET “1ST PASS” FLAG FOR - od TEST 


;RES TORE INITIAL TEST FORMAT 


—E _ 


EE A EE — ee 


oe 


—— | o-oo oe 


ow wee ee 
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TEST 1: 


Besic Function Test 


150 
000 


000000 
000001 


TILEOT: 


TIWTM: 


TiSKP: 


T1SKR: 


TiSPC1: 


TiSPC2: 


T1SPC3: 


TISPOL: 


TISKR1: 


.BYTE 
.B 


YTE 

D 
-BYTE 
-BYTE 


. WORD 
. WORD 
BYTE 


SEQ 145 


;SET UNIT CHARACTERISTICS COMMAND 
sNO DATA NEEDED 

;NO ITEM COUNT 

;00 IT ONE TIME 


; ONLINE COMMAND 
;NO DATA NEEDED 
sNO ITEM COUNT 

;00 IT ONE TIME 


;REWIND COMMAND 
;NO DATA NEEDED 
;NC ITEM COUNT 

;00 IT ONE TIME 


;WRITE TAPE MARK 


I 
;D0 IT TWICE 
;WRITE TAPE MARK 


;D0 IT ONE TIME 


;SKIP TAPE MARK 
;NO DATA NEEDED 
;SKIP 1 TAPE MARK 
:00 IT ONE TIME 


SKIP TAPE MARK REVERSE 
NO DATA NEEDED 
; SKIP REVERSE 2 TAPE MARKS 
;D0 IT ONCE 


;SPACE RECORDS 


; SPACE 84 RECOROS 
;D0 iT ONE TIME 


;SPACE RECORDS 
;NO DATA NEEDED 
;SPACE 69 RECORDS 
;00 1* ONE TIME 


;SPACE RECORDS 

;NO DATA NEEDED 
;SPACE 39 RECORDS 
;D0 IT ONE TIME 


;SPACE OBJECTS 


;NO DATA NEEDED 
: CE 56 OBJECTS 
;D0 IT ONE TI 


:SKIP TAPE MARK REVERSE 


_— <-——— 


HARDWARE TESTS MACRO YOS.02 
TEST Basic Function Test 


1: 


me ee mere 
- ew see ~ sem eases tia taaattteALT LLLLELLLLLLLLLLLLLLL 


TiSPO2: 


TiSPO3: 


T1SPR1: 


TiSKP1: 


TiSKPe: 


T1SPRe: 


TiSKD: 


TIWRI1: 


TiWRe: 


TIWRS: 


TIWR4: 


m= a ee ee eee ee = - 
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SE@ 146 


 % DATA NEEDED 
4 TAPE MARKS 

‘D0 IT ONCE 

;SPACE OBJECTS 

;NO DATA NEEDED 

SPACE 71 = 

:00 IT ONE TIME 


;SPACE OBJECTS 
;NO DATA NEEDED 
;SPACE 66 a 
:D0 IT ONE TIME 


or. ge oe REVERSE 
;NO DATA NEEDED 

;SPACE 375 la 

;D0 IT ONE TIME 


s SKIP TAPE MARKS 


;06 IT ONE TIME 


;SKIP TAPE MARKS 
;NO DATA NEEDED 
;SKIP 2 Lg MARKS 
:D0 IT ONE TIME 


; SPACE mg REVERSE 
;NO DATA NEEDED 

;SPACE 192 o> 

;D0 IT ONE TIME 


;SKIP TO LEOT 


;00 IT ONE TIME 


;WRIVE RECORD 

;DATA PATERN 1 CALL 1’S) 
;BYTE COUNT OF 512. 

;D0 IT 99 TIMES 


;WRITE RECORD 

;DATA PATERN 2 CALL O'S) 
;BYTE COUNT OF 525 

;D0 IT 84 TIMES 


;WRITE RECORD 

;DATA PATERN 3 CWORST MFM) 
;BYTE COUNT OF 1038 

;D0 IT 69 TIMES 


;WRITE RECORD 
;DATA PATERN 4 (ALTERNATE 1’S AND O'S) 
;BYYTE COUNT OF 1551 


a -_——-—_——. —_ 
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TEST 1: Basic Function Test 


sane 042534 000066 -WORD 54. ;00 IT 54 TIMES 

042536 020 TiIWRS: .BYTE WR ;WRITE RECORD 
5661 042537 003 .BYTE PATS ;DATA PATERN 3 (WORST MFM) 
S862 042 004020 .WORD 2064. ;BYTE COUNT OF 2064 
5863 042542 -WORDB 39. ;00 IT 39 TIMES 
5865 042 020 TiWR6: .BYTE WR ;WRITE RECORD 
5866 042545 001 -BYTE PATI ;DATA PATERN 1 i i‘S) 
5867 042 005021 -WORD 2577 ;BYTE COUNT OF 2 
raed 042550 -WORD 24. ;00 IT 24 TIMES 
5870 042552 010 TiRDi: .BYTE RD ;READ RECORD 
5871 04255 901 -BYTE PATI ;DATA PATERN 1 CALL 1'S) 
5872 042554 000026 -WORD 22. ;BYTE COUNT OF 512. 
rth 042556 000145 -WORD 99. ;00 IT 99 TIMES 
587 2 010 TiIRD2: .BYTE RD ;READ RECORD 
5876 042561 002 .BYTE PAT2 ;DATA PATERN 2 CALL 0’S) 
5877 042562 01015 -WORD 525. ;BYTE COUNT OF 525 
rth 2 124 -WORDB 64. ;D0 IT 84 TIMES 
58 2566 010 TiIRDS: .BYTE ROD sREAD RECORD 
5881 042567 003 -BYTE PATS ;DATA PATERN 3 CWORST MFM) 
$862 042570 002016 -WORD 1038. ;BYTE COUNT OF 1038 
sees 042572 1 . WORD 9. ;D0 IT 69 TIMES 
5885 042574 010 TiRD4: .BYTE ROD ;READ RECORD 
5886 042575 004 -BYTE PAT4 ;DATA PATERN 4 CALTERNATE 1°S AND 0'S) 
5887 042576 003017 -WORD 1551 ;BYTE COUNT OF 1551 
P+ 042600 -WORD 54. ;D0 IT 54 TIMES 
5890 042602 010 TiRDS: .BYTE ROD ;READ RECORD 
5891 042605 003 -BYTE PATS ;DATA PATERN 3 (WORST MFM) 
5892 042604 004020 -WORD 2064. ;BYTE COUNT OF 2064 
ra dy 042606 -WORD 39. ;D0 IT 39 TIMES 
$895 042610 010 TiIRD6: .BYTE RD ;READ RECORD 
5896 042611 001 -BYTE PATI ;DATA PATERN 1 CALL 1S) 
5897 042612 005021 -WORD 2577 ;BYTE COUNT OF 2577 
Snes 042614 30 .WORD 24. ;D0 IT 24 TIMES 
5900 042616 071 RTSPR1: .BYTE SPR Sag B ge 3. REVERSE 
5901 042617 000 BYTE NULPAT ;NO DATA NEEDED 
5902 042620 000001 -WORD 1 ;SPACE 1 OBJECT 
5903 042622 000001 WORD 1 ;00 IT ONE TIME 
5904 EVEN 
5905 
$906 042624 ENDTST 

2624 L10015 
042624 104401 TRAP CSETST 


HARDWARE TESTS 
TES 


T 2: 


5944 


5945 04 


\.. EEE 


MACRO YOS.02 Monde 
Quick Verify Write/Read Tes 


005737 
001014 


013746 
012746 


105737 
001421 


004737 
012737 
022737 
001011 


012746 
012746 
00 


012746 


003704 


002114 
020527 
000002 


000006 


043356 
002216 


002221 
002220 


002217 
020037 
000004 


000012 
033550 
000100 


000002 


-_—-— -————_— 


003616 
003732 
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SEQ 148 


.SBTTL TEST 2: Quick Verify Write/Read Test 


3+ 


:This test rewinds the tape, then executes the following sequence: 


: 

:for 5 iterations or until fatal error 
ipermits 
;records/set (400), and predetermined 


Write record set, 
Reposition over just written record set, 
Then read the current record set, 


retries, 


is encountered. This test 
record —— (2048 bytes), fixed number of 
ate patterns. This test will 


fixed 


sexecute in a round-robin manner. 


ee 
T2:: 


STARTe: 


S$: 


G02: 


i$: 


BGNTST 


UDROP ;sHAVE ALL UNITS BEEN DROPPED ? 
5$ ;GO START THE TEST 
@BYPASS,L$TEST ;PRINT THE TEST BYPASSED MESSAGE 
L$TEST, -(SP) 
$2, -(SP 

P,RO 
CSPNTF 
#6 ,SP 
T2EXIT :GET OUT IF NONE LEFT TO TEST 
CLOCK ‘. THE CLOCK ENABLED 
GO THEN CAN'T PRINT TIME 


2 NO, 
a Eas” .<B,HOURS>,<B, MINUTE> , <B,SECOND>, 
tS CSP) 
MINUTE, (SP) 

-C(SP) 


SP ,RO 
CSPNTF 
#12,SP 


HOURS , (SP) 
@TIME » -¢SP) 


PC ,CLREOT ;MAKE SURE EOT STATUS IS CLEAR 
@ONLB , TSTMSK ;ALLOW ALREADY ONLINE STATUS 
@TF .PE,FORMAT ;ARE WE DOING PE ? 

1$ ;NO, PRINT GCR 

@TSTPE :PRINT TESTING IN PE 


@TSTPE,-(SP) 
#1,-CSP) 


SP ,RO 
CSPNTF 
#4 ,SP 
;START TEST 


3$ 
#TSTGCR ;PRINT TESTING IN GCR 
#TSTGCR, -CSP) 


7. as ~_- 


HARDWARE TESTS MACRO YOS.02 Monde 
TES Quick Verify Write/Read Tes 


012746 
0600 


T 2: 


000002 


003676 
003616 


003616 


003676 


3$: 


4$: 


5$: 


10$: 
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96s") 

CSPNTF 

04 ,SP 

@TSTSUC,RS 
HED 


SS 

T2EXIT 
@T2REW,RS 
PC, SCHED 
UDROP 
T2EXIT 


PC ,SOSTUP 
@T2WRT RS 
CHED 


T2EXIT 
@T2LEOT,.RS 
CHED 


UD 
T2EXIT 


@T2REW,RS 
PC,SCHED 
UDROP 


T2EXIT 

OBJECT 

10% 

@T2SP0,R5 

OBJECTS, ITMCNTCRS) 
CHED 


T2EXIT 


PC .SDSTUP 
#T2RD.RS 
PC SCHED 
UDROP 


T2EXIT 

ITRCNTCRS), OBJECTS 
#LEDB, TSTMSK 
@T2SKD.RS 


PC, SCHED 
OLEDB , TSTMSK 
UDROP 


T2EXIT 
ITRCNTCRS),.OBJECTS 


NS em me 


SEQ 149 


;SET UP TO DO A SET UNIT CHAR 
;GO ISSUE THE COMMAND 
;HAVE ALL UNITS BEEN DROPPED ? 


TINUE 
‘GET OUT IF NONE LEFT TO TEST 


;CLEAR THE OBJECT COUNTER 

; ALLOW NO wy 

;SET UP TO DO A REWIND 

;GO ISSSUE A REWIND TO ALL ORIVES 
;HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


;RESET THE RANDOM SEEDS 

;SET UP TO DO A WRITE ITERATION 
;GO ISSSUE WRITES TO ALL DRIVES 
;HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


;SET UP TO DO A WRITE LEOT 

;GO ISSSUE WRITES TO ALL DRIVES 
;HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


;SET UP TO DO A REWIND 

;GO ISSSUE A REWIND TO ALL DRIVES 
;HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


:IS THIS THE FIRST TIME THROUGH 7? 
;YES, DON’T DO THE SPACE FORWARD 

;SET UP - SPACE OBJECTS 

;SET UP @ OF OBJECTS TO SPACE FORWARD 
:GO ISSSUE A REWIND TO ALL DRIVES 
;HAVE ALL UNITS BEEN DROPPED ? 

;GET OUT IF NONE LEFT TO TEST 


;RESET THE RANDOM SEEDS 

;SET UP TO DO A READITERATION 
:GO ISSSUE READS TO ALL a age 
;HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
;ADD THE #@ OF RECORDS TO OBJECTS 


;SET UP TO wy LEOT DETECTED 
;SET UP TO DO A SKIP TO LEOT 

:G0 ISSSUE READS TO ALL ORIVES 
;DISALLOW LEOT DETECTED 

;HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
;ADD THE @ OF RECORDS TO OBJECTS 


HARDWARE TESTS 
TEST 2: 


5999 
6000 


MACRO YOS.02 Monda 
Quick Verify Write/Read Tes 


022737 


012737 
000137 
005037 
013737 
004737 
104432 
000046 


160 


004716 


043400 
021042 


003702 
003702 
000002 
000002 
042734 
000004 
042734 
003702 


003734 
033714 


003676 


003732 
003732 


003732 


003732 


20%: 


25%: 


T2EXIT: 


T2REW: 


T2WRT: 


T2LEOT: . 


T2RD: 


T2SKD: 


T2SP0: 
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@T2END,OBJECTS 


4 
@TOREW,RS 
PC, SCHED 


PASS1 
T2EXIT 


PASS1 

@TF .PE ,FORMAT 
25$ 

OTF .PE FORMAT 
G02 


@TF .GCR,FORMAT 
G02 


SE@ 150 


s;HAVE WE DONE 2 TRACKS ? 
yy 


;NO, KEEP GO 
;SET UP TO oo REWIND 
;GO ISSSUE A REWIND TO ALL ORIVES 


;I1S THIS THE END OF iST PASS ? 

;BRANCH IF NOT 

;sPASS1 = -1 

; WAS 1ST PASS DONE IN PE ? 
NCH IF S 

;SET TAPE FORMAT TO PE 

;REPEAT TEST. THIS TIME IN PE 


;SET TAPE FORMAT TO GCR 
;REPEAT TEST. THIS TIME IN GCR 


sRESET “1ST PASS” FLAG FOR NEXT TEST 
sRESTORE INITIAL TEST FORMAT 
;RESET THE RANDOM SEEDS 


; REWIND 
;WRITE RECORDS 


;sWRITE TAPE MARK 
;NO DATA NEEDED 
;NO ITEM COUNT 
;00 IT TWICE 


;REAC RECORDS 


;SKIP TAPE MARK TO LEOT 
;NO DATA NEEDED 

;SKIP SO TAPE MARKS 

;D0 IT ONE TIME 


;SPACE OBJECTS 


ee ee | - 


HAPUWARE TESTS MACRO YOS.02 Monde 
TEST 2: Quick Verify Write/Read Tes 


043444 104401 
6053 





——E— — <—~ 
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TRAP CSETST 


ee ee 


SE@ 151 





—— 


-— ase 6 ee es + - 


HARDWARE TESTS 


TEST 3: 
6055 
56 


MACRO YOS.02 
Complex Write/Read Test 


005737 
001014 


013746 


105737 
001421 


004737 
012737 


022737 
001011 


012746 
012746 
010600 
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003616 
003732 


SEQ 152 
-SBTTL TEST 3: Complex Write/Read Test 


3¢¢ 
:This test rewinds the tape, and executes the following sequence: 


1. Write 1000 records, 

Write a file mark, 

Repeat 1 and 2 until EOT is reached, 

Write 2 file marks (LEOT), 

Rew i] nd, 

Read 1000 records, 

Read 1 record (should see | shamans tape mark ) 


OUD LS wld 


Repeat 6 and 7 until LEOT 
; 
;@ of records (N), and record size will be randomly selected. This 
;sequence wil} permit hardware retries, if not user disabled. This 
stest will run until EOT, LEOT or fetal error is detected. All date 


;patterns including random data will be used in this test. 
elias 


BGNTST 
T3:: 
STARTS: TST UDROP ;HAVE ALL UNITS BEEN DROPPED ? 
BNE 5$ :GO START 1HE TEST 
PRINTF #BYPASS,LSTEST ;PRINT THE TEST BYPASSED MESSAGE 
MOV LS$TEST, -CSP) 
MOV #2,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #6, SP 
JMP T3EXIT ;GET OUT IF NONE LEFT TO TEST 
S$: TST8 CLOCK ;I1S THE CLOCK ee 
BEQ GO3 ;NO, THEN CAN‘T PRINT TIME 
PRINTF @TIME,<B,HOURS>,<B, MINUTE>, <B, SECOND>, 
CLR -(SP) 
BIS8 SECOND , (SP) 
CLR -(SP) 
BISB MINUTE, (SP) 
CLR -( SP) 
BISB S,.(SP) 
MOV #4,-(CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADO #12,SP 
JSR PC ,CLREOT sMAKE SURE EOT STATUS IS CLEAR 
MOV #ONLB , TSTMSK ;ALLOW ALREADY ONLINE STATUS 
CMP 


OTF .PE .FORMAT 
1$ 


BNE 

PRINTF #@TSTPE 

MOV STSTPE,-CSP) 
MOV SP ,,RO 


;ARE WE DOING PE ? 
;NO, PRINT GCR 
;PRINT TESTING IN PE 


HARDWARE TESTS 


TEST 3: 


6091 
6092 


PAAPAAAAAAPAAAAAAAAARAAAAARAAAAAH 
AWA AURUNRNUMUUME remem erro 
SSGSASEKSSS Nous owe NOU SUMP O 


Complex 


3 
: 
: 


3 
: 


Oe 
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012705 
004737 
005737 
001517 
023737 
001352 


012737 
004737 


044224 
033772 
033636 


003616 
003704 


010744 


033550 
044246 
021042 
003704 


033772 
033636 


003704 


003704 


010744 10%: 
15$: 


1%: 


3$: 


4$: 


5$: 


TRAP 
ADD 


CSPNTF 
@4,SP 


3$ 

@TSTGCR 
@TSTGCR, -CSP) 
#1, - (SP) 

»RO 

CSPNTF 

04 ,SP 

@TSTSUC,RS 

PC ,SCHED 

UDROP 

4¢ 

TSEXIT 


PC,.PATCLR 
PC,SOSTUP 


TSTMSK 
UDROP 
TSEXIT 


@TSREW,RS 
PC ,SCHED 


UDROP 
TSEXIT 


@TSWRT RS 
PC ,.SCHED 
UDROP 


TSEXIT 
VE 


@TSWTM.RS 
PC, SCHED 
UDROP 


T3EXIT 
+ giebaeeieal 


#4,L00PS 

PC ,.CLREOT 

@TSWIM,RS 

PC ,SCHED 
OP 


PC,CLREOT 
#TSREW.RS 
PC, SCHED 
UDROP 


TSEXIT 
PC,.PATCLR 
PC ,SOSTUP 


SEQ 153 


;START TEST 
;PRINT TESTING IN GCR 


;SET UP TO DO A SET UNIT CHAR 
;GO ISSUE THE C 

;HAVE ALL UNITS BEEN DROPPED 7? 
;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;MAKE SURE WE START WITH PATTERN 1 
;RESET THE RANDOM SEEDS 


;ALLOW NO ERRORS 
;HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


;SET UP TO DO REWIND 


;HA D0? 
:GET OUT IF NONE LEFT TO TEST 
;SET UP A WRITE ITERATION 


; ORIVES 

;HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
;ARE ALL UNITS AT EOT ? 

;YES, WRITE ONE MORE REC AND LEOT 


;SET UP TO WRITE A TAPE MARK 
;GO DO IT ON ALL DRIVES 


;NO, KEEP WRITING 


:SET UP TO DO 4 TAPE MARKS 
;CLEAR THE EOT INDICATORS 
on 7 WRITE A TAPE MARK 


: IT ON ALL ORI 
sHAVE ALL UNITS BEEN 
;GE F NONE LEFT TO TEST 


T OUT I 
; SUBTRACT 1 FROM THE TAPE 
;KEEP GOING TIL THEY'RE ALL WRITTEN 


;CLEAR THE EOT INDICATORS 

;SET UP TO REWIND ALL DRIVES 
:GO DO IT 

;HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
; START AT PATTERN 1 

;RESET THE RANDOM SEEDS 


HARDWARE TESTS 
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Write/Read Test 


012737 
000137 
005037 
013737 
004737 


104432 
000040 


003734 
033714 


003704 


003704 


003732 
003732 


003732 


003732 


20%: 


EXSREW: 


2208: 


225%: 


T3EXIT: 


@T3RO,R5 
PC, SCHED 
oP 


@T3SPO,R5 
PC , SCHED 

oP 
TSEXIT 
VEOT , UDROP 
20% 


PC,CLREOT 
OTSREW,RS 


PC ,SCHED 


22 
OTF .PE ,FORMAT 
GOS 


@TF .GCR, FORMAT 
GOS 


PASS1 


NF ORM, FORMAT 


PC ,SOSAVE 
ST 


T 
CSExIT 
L10017-. 


ee ee we -_—_ 


SE@ 154 


;SET UP TO READ AN ITERATION SET 
:GO0 ISSUE TO 


T IF 
;ALL UNITS AT EOT 
;YES, GO REWIND ALL ORIVES 


;SPACE 1 OBJECT (TAPE MARK) 
:;GO OO IT AN ALL OR 

; HAVE ALL UNITS BEEN DROPPED ? 
;GE IF NONE LEFT TO TEST 


T 
SALL UNITS AT EOT ? 
;NO, KEEP READING 


;CLEAR THE EOT INDICATORS 
iSET UP TO REWIND ALL DRIVES 
i 


;IS THIS THE END OF 1ST PASS ? 
;BRANCH IF NOT 


sPASS1 = -1 
;WAS 1ST PASS DONE IN PE ? 
;BRANCH IF SO 

;SET TAPE FORMAT TO PE 
sREPEAT TEST. THIS TIME IN PE 


;SET TAPE FORMAT TO GCR 
;REPEAT TEST. THIS TIME IN GCR 


;RESET “1ST PASS” FLAG FOR NEXT TEST 
pt ge! INITIAL TEST FORMAT 
;RESET THE RANDOM SEEDS 


: > —ee- owe _- 
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TEST 3: Complex Write/Read Test 
160 T3REW: .BYTE REW ; REWIND 
000 "BYTE NULPAT 
000000 "WORD 0 
000001 “WORD 1 
020 T3WRT: .BYTE wR |WRITE RECORDS 
200 ‘BYTE ALLPAT 
| 000000 ‘WORD RNDBYT 
| 000000 ‘WORD RNDITR 
| 100 T3WIM: .BYTE wTM |WRITE TAPE MARK 
| 000 ‘BYTE | NULPAT 
000000 "WORD 0 
000901 “WORD 
010 T3RD: .BYTE RD ;READ RECORDS 
200 "BYTE ALLPAT 
000000 "WORD = RNOBYT 
000000 "WORD RNDITR 
070 T3SPO: .BYTE SPO ;SPACE OBJECT (TAPZ MARK) 
009 "BYTE | NULPAT 
000001 "WORD 1 
000001 "WORD 1 
LEVEN 
ENDTST 
L10017 
104401 TRAP  CSETST 





ae se Ce 
eee - 


L ee eee 


Se ee 


a 
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TEST 4: Write Interchange Tape 


6205 
6206 
6207 
6208 
6209 
6210 
6211 
218 044306 
044306 
6214 
6215 044306 
6216 port tr 
6217 044314 
044314 
044 
044 
O44 
044 
0445354 
6238 044340 
19 
044344 
1 044 
O44 
gaa 
O48 
044 
Jaa 
044 
044 
044374 
044400 
044404 
044406 
044410 
$a4420 





021042 


-SBTTL TEST 4: Write Interchange Tape 


3¢¢ 


:This test will rewind the 
sencountered This test will 
If e fetel error 


smarkes written. 


;it, 
g-= 


T4:: 


START4: 


is: 


BGNTST 


TST 








HIGUPEGE be IBEEEE 


S$ 

@BYPASS ,LSTEST 
LSTEST, -(SP) 
@BYPASS, -(SP) 
€2. -(SP) 
CSPNTF 

06 . SP 

T4EXIT 

CLOCK 





Elected 


@TSTPE 
Hedirs —* 


pape. then prio until EOT or 
een the 


ea fetel error is 
track of 
is encountered, @ 


GH OQ 
and the unit prevented from executing further write operations. 


sHAVE ALL UNITS BEEN DROPPED ? 
:GO START THE TE 
;PRINT THE TEST BYPASSED MESSAGE 


;GET OUT IF NONE LEFT TO TEST 


:IS THE CLOCK ENABLED 
THEN CAN'T PRINT TIME 


GO4 NO, 
@TIME . <B, HOURS>. <B, MINUTE>, <8, SECOND>, 


;MAKE SURE EOT STATUS IS CLEAR 
; ALLOW ALREADY ONLINE STATUS 


— WE DOING PE ? 
SPRINT TESTING IN PE 


;START TEST 
;PRINT TESTING IK GCR 


;SET UP TO DO A SET UNIT CHAR 
:GO ISSUE THE COMMAND 


SE@ 156 


ee: ene ar _- 
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TES Write Interchange Tape 


T 4: 


013737 


104432 
000024 


160 


003704 
044702 
033772 


010744 


033550 
044714 
021042 


003734 


003704 


003704 


010744 


003732 


4$: 


5$: 


10$: 
15$: 


T&4EXIT: 


T4REW: 


T4wRT: 


T4wTM: 
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UDROP 

as 

T4EXIT 
PC,PATCLR 


PC, SDSTUP 
TSTMSK 


@T4REW,RS 
PC ,SCHED 
ROP 


UD 
T4EXIT 


@T4WRT RS 
PC ,SCHED 
UDROP 


T4EXIT 
VEO 


@T4WTM,RS 
PC, SCHED 
UDROP 


T4EXIT 
a cine 


#4,L00PS 

PC, ,CLREOT 
@T3SWTM,RS 
PC ,SCHED 

UDR 


oP 
T4EXIT 
LOOPS 
15% 


PC,CLREOT 
#T4&REW RS 
PC .SCHED 


INF ORM, FORMAT 


SEQ 157 


; HAVE ALL UNITS BEEN DROPPED ? 
‘GET OUT IF NONE LEFT TO TEST 


iSET UP THE RANDOM SEEDS 
;NO ALLOWABLE ERRORS 


;POINT RS TO THE REWIND TABLE 
;GO START THE TEST 
BEEN DROPPE 


;HAVE ALL UNITS 0? 
;GET OUT IF NONE LEFT TO TEST 


;POINT RS TO THE TEST TABLE 
;GO START THE TEST 

;HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
;ARE THEY ALL AT EOT ? 

;BRANCH IF IT IS 


oe et RS TO THE TEST TABLE 
START THE TEST 

; HAVE ALL yg ht BEEN DROPPED ? 

;GET NONE LEFT TO TEST 

;ARE THEY ALL AT EOT ? 

;BRANCH IF NOT 


;SET UP TO DO 4 TAPE MARKS 

;CLEAR THE EOT wey ™ 

;SET UP TO WRITE A TAPE MARK 

:GO DO IT ON ALL DRIVES 

;HAVE ALL UNITS BEEN DROPPED ? 

;GET OUT IF NONE LEFT TO TEST 
;SUBTRACT 1 FROM THE TAPE MARK COUNT 
KEEP GOING TIL THEY'RE ALL WRITTEN 


; POINT RS TO THE TEST TABLE 
;GO REWIND ALL UNITS 


sRESTORE INITIAL TEST FORMAT 
;REWIND 
;WRITE RECORDS 


:4RITE TAPE MARY 


eee ee ee eee =< 


er re ee ee ee ee ee ee ee eee 
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TEST 4: Write Interchange Tape 


6289 044732 000000 -WORD 0 
6290 044734 900001 . WORD 1 
6291 EVEN 
6292 044736 ENDTST 

044736 L 10020: 

044736 104401 TRAP cserst 
6293 


ee ee or EEE - 


6325 


oe 


HARDWARE TESTS 
TEST 5: 


04 
045132 
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Read Unknown Tape 


105737 
001421 


005046 
153716 
005046 
153716 
005046 
153716 
012746 
012746 


1 
104417 
062706 


004737 
012737 


022737 
001011 


012746 
012746 
0600 


012705 


000004 
042324 


003616 
003732 


.SBTTL TEST 5: Read Unknown Tape 


**¢ 


:This test will rewind e tape 
is encountered. 
;and files read. 
;report 


i? 


the tape on the 


. then read until EOT, LEOT or fatel error 

This test will keep track of the number of records 
If a fetal error is encountered, a mess will 
unit will be rewound, and the unit 


;prevented from executing further read operationc. 


ria 
T5:: 


STARTS: 


5$: 


GOS: 


1$: 


3$: 


BGNTST 


UDROP 


5$ 
@BYPASS,LSTEST 
L$TEST , -CSP) 
@2,-CSP) 

SP ,RO 

CSPNTF 


;HAVE ALL UNITS BEEN DROPPED 7 
;GO START THE TEST 
;PRINT THE TEST BYPASSED MESSAGE 


;GET OUT IF NONE LEFT TO TEST 


#6 ,SP 

TSEXIT 

CLOCK ;IS THE CLOCK ENABLED 

GOS ;NO, THEN CAN’T PRINT TIME 
wt 4S »<B,HOURS>,<B, MINUTE>, <B, SECOND>, 


SECOND, (SP) 
MINUTE , (SP) 
-( SP) 
HOURS. (SP) 


SP RO 
CSPNTF 
#12.SP 


PC, CLREOT 
SONLB , TSTMSK 


@TF .PE ,FORMAT 


;MAKE SURE EOT STATUS IS CLEAR 
;ALLCW ALREADY ONLINE STATUS 


;ARE WE DOING PE ? 


i$ z ;NO, PRINT GCR 

@TSTPE ;PRINT TESTING IN PE 
CSPNTF 

@4,SP 

3$ ;START TEST 

@TSTGCR ;PRINT TESTING IN GCR 
@TSTGCR, -( SP) 

#1, -(SP) 

SP .R 

CSPNTF 

#4 ,SP 

#TSTSUC,RS ;SET UP TO DO A SET UNIT CHAR 


SEQ 159 


CL OC A LL! LG LG LD LLL! | ae -- 


ro TESTS 
TEST ad Unknown Tape 


045312 


eee ee ee ee 
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004737 
012737 
013737 


104432 
000016 


160 


104401 


021042 
003704 


045264 


033772 
033636 


003616 


003704 


4$: JSR 


5$: MOV 


10$: JSR 
TSEXIT: MOV 
TSREW: .BYTE 


TSRD: .BYTE 


PC, SCHED 
UDROP 


4$ 
TSEXIT 


PC,PATCLR 
PC,SOSTUP 


TSTMSK 
@TSREW,.RS 
PC, SCHED 
UDROP 
TSEXIT 


@TMB!ROTB, TSTMSK 
@TSRO.RS 


PC, SCHED 
UDROP 
TSEXIT 
oo 


PC ,CLREOT 
@TSREW,RS 

PC. SCHED 

#1001. , TSRD+4 

 aaagiag »FORMAT 

CsExIT 
L10021-. 


REW 
NULPAT 


CSsETST 


-— — eee eee — 


SE@ 160 


;GO ISSUE THE COMMAND 

;HAVE ALL UNITS BEEN DROPPED ? 
;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;MAKE SURE WE START WITH PATTERN 1 
;SET UP THE RANDOM SEEOS 


ALLOWABLE ERRORS 
HE 
;HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


;TAPE MARKS AND TRUNC. RECORDS OK 
oS ae RS THe TEST TABLE 


3;GO0 START 
sHAVE ALL UNITS 
;GET T NONE CEFT TO TEST 


OUT I 
;ARE THEY ALL AT EOT ? 
;BRANCH IF THEY ARE NOT 


;POINT RS 10 THE REWIND TABLE 
;GO REWIND ALL UNITS 
;RESTORE ITER COUNT 


;sRESTORE INITIAL TEST FORMAT 
;REWIND 


;READ RECORDS 


a meee . - 
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T 6: 


005737 
001014 


013746 
012746 


105737 
001421 


004737 
012737 


022737 
001011 


012746 
012746 
010600 
104417 
062706 


003704 


002114 
020527 
000002 


000006 
046034 
002216 


002221 
002220 


002217 
020037 
000004 


000012 


033550 
000100 


020610 
000001 


— ee 
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Test 


003616 
003732 





ee ee ee _ ~- _ 


SEQ 161 
-SBTTL TEST 6: Start/Stop Write/Read Test 


i 
;This test rewinds the tape, and executes the following sequence: 


: 
; i. Write 1300 records one at a time, 
; ¢: Write 2 file marks (LEOT), 

; . Rewind, . 

: 4. Read 1300 records one at a time, 
; S. Skip to LEOT. 

3 6. Rewind, 

3 


;This ce will permit hardware retries, if not user disabled. 
:This test will run until exhaustion of the command count or fatal error 
is gong All data patterns including random date will be used 
;in this test. 


BGNTST 
T6:: 
START6: TST UDROP ;sHAVE ALL UNITS BEEN DROPPED ? 
BNE 5$ :GO START THE TEST 
PRINTF #BYPASS,LSTEST ;PRINT THE TEST BYPASSED MESSAGE 
MOV @BYPASS, -CSP) 
MOV #2,-CSP 
MOV SP RO 
TRAP CSPNTF 
ADD #6 ,SP 
JMP T6EXIT ;GET OUT IF NONE LEFT 70 TEST 
5$: TSTB CLOCK :I1S THE CLOCK ENABLED 
EQ ;NO. THEN CAN‘T PRINT TIME 
PRINTF #@TIME,<B,HOURS>,<B,MINUTE>,<B,SECOND>, 
CLR -(SP) 
B1ISB SECOND, (SP) 
CLR -(SP) 
BISB MINUTE , CSP) 
CLR -CSP) 
BISB HOURS , (SP) 
V @TIME ,-(SP) 
MOV #4,-CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD #12,SP 
JSR PC ,CLREOT ;sMAKE SURE EOT STATUS IS CLEAR 
MOV #ONLB , TSTMSK ;ALLOW ALREADY ONLINE STATUS 
CMP OTF .PE,.FORMAT ;ARE WE DOING PE ? 
BNE 1$ :NO, PRINT GCR 
PRINTF #TSTPE :PRINT TESTING IN PE 
MOV @TSTPE, -CSP) 
MOV SP ,RO 
TRAP CSPNTF 
ADD 04 ,SP 
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TEST 6: Stert/Stop Write/Read Test 


6401 045464 000410 BR 3$ ;START TEST 
6402 045466 1s: PRINTF éTSTGCR ‘PRINT TESTING IN GCR 
045466 012746 020562 MOV @TSTGCR, -(SP) 
045472 012746 000001 MOY @1,-(SP) 
045476 010600 MOV Sp; 
045500 104417 TRAP CSPNTF 
045502 062706 000004 ADD 64,SP 
6403 045506 012705 042324 3$: MOV @TSTSUC,RS ;SET UP TO DO A SET UNIT CHAR 
«404 045512 004737 021042 JSR PC, SCHED ;GO ISSUE THE C 
| 6405 045516 005737 003704 TST UDROP SHAVE ALL UNITS BEEN DROPPED ? 
| 6406 045522 001002 BNE rv ;NO, CONTINUE 
6407 045524 000137 046034 JMP T6EXIT ;GET OUT IF NONE LEFT TO TEST 
6409 045530 004737 033772 4s: JSR PC.PATCLR |MAKE SURE WE START WITH PATTERN 1 
6410 045534 004737 033636 JSR PC’ SDSTUP "RESET THE RANDOM SEEDS | 
6412 045540 005037 003616 CLR TSTMSK ;ALLOW NO ERRORS | 
6413 045544 005737 003704 TST UDROP ;HAVE ALL UNITS BEEN DROPPED ? | 
6414 045550 001531 BEQ T6EXIT ‘GET OUT IF NONE LEFT TO TEST 
6416 045552 012705 046056 MOV @TEREW,RS ;SET UP TO DO REWIND | 
6417 045556 004737 021042 JSR PC, SCHED ;GO ISSUE TO ALL DRIVES 
6418 045562 005737 003704 TST UDROP SHAVE ALL UNITS BEEN DROPPED ? | 
6419 045566 001522 BEQ T6EXIT ‘GET OUT IF NONE LEFT TO TEST 
6420 045570 012737 002424 003546 MOV #1300. , COUNT -STEP UP THE WRITE ITERATION COUNT 
6422 045576 012705 046064 S$: MOV @TEWRT RS ;SET UP A WRITE ITERATION 
6423 045602 004737 021042 JSR PC, SCHED :GO DO IT S 
6424 045606 005737 003704 TST UDROP ‘HAVE ALL UNITS BEEN DROPPED ? 
6425 045612 001510 BEQ T6EXIT <GET OUT IF NONE LEFT TO TEST 
6426 045614 005337 003546 DEC COUNT ‘SUBTRACT 1 FROM THE ITERATION COUNT 
6427 045620 001366 BNE S$ ;MORE COMMANDS TO DO, KEEP GOING | 
6429 045622 012705 046072 MOV @T6WTM,RS ;SET UP TO WRITE A TAPE MARK 
6430 045626 004737 021042 JSR PC, SCHED :GO DO IT ON ALL DRIVES 
6431 045632 005737 003704 TST UDROP SHAVE ALL UNITS BEEN DROPPED ? 
6432 045636 001476 BEQ T6EXIT [GET OUT IF NONE LEFT TO TEST 
6434 045640 012705 046056 MOV OTEREW.RS ;SET UP TO REWIND ALL DRIVES 
6435 045644 004737 021042 JSR PC, SCHED :GO CO IT 
6436 045650 005737 003704 TST UDROP {HAVE ALL UNITS BEEN DROPPED ? 
6437 045654 001467 BEQ T6EXIT [GET OUT IF NONE LEFT TO TEST 
6439 045656 004737 033772 JSR PC.PATCLR :START AT PATTERN 1 
6440 045662 004737 033636 JSR PC: SDSTUP "RESET THE RANDOM SEEDS 
6441 045666 012737 002424 003546 MOV #1300. , COUNT _ STEP UP THE WRITE ITERATION COUNT 
6443 045674 012705 046100 10$: MOV ®TERD,RS ;SET UP TO READ AN ITERATION SET 
6444 045700 004737 021042 JSR PC, SCHED ;GO DO IT ON ALL DRIVES 
6445 045704 005737 003704 TST UDROP ‘HAVE ALL UNITS BEEN DROPPED ? 
6446 045710 001451 BEQ T6EXIT ;GET OUT IF NONE LEFT TO TEST 
6447 045712 005337 003546 DEC COUNT ‘SUBTRACT 1 FROM THE ITERATION COUNT 
6448 045716 001366 BNE 10$ ;MORE COMMANDS TO DO, KEEP GOING 
6450 045720 052737 000001 003616 BIS #LEDB, TSTMSK :SET UP TO ALLOW LEOT DETECTED 
6451 045726 012705 046106 MOV eT6SKD.RS “SKIP TO LEOT 


6452 0457352 004737 021042 JSR PC, SCHED ;GO DO IT AN ALL. ORIVES 


nnn ——- - — 


_—, 


ee em oe ee 


— ----- == eee eee Se ee eee ee eee eee eee a 
7 —s ——— ee me ~—- . 
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TEST 6: Start/Stop Write/Read Test 


6453 045736 042737 000001 005616 BIC @LEDB , TSTMSK ;DISALLOW LEOT DETECTED 
6454 045744 005737 003704 TST UDROP ;HAVE ALL UNITS BEEN DROPPED 7? 
eae 045750 0014351 BEQ T6OEXIT ;GET OUT IF NONE LEFT TO TEST 
6457 045752 004737 033550 JSR PC,CLREOT ;CLEAR THE EOT INDICATORS 
6458 045756 012705 046056 MOV @T6REW,.RS ;SET UP TO REWIND ALL DRIVES 
nae 045762 004737 021042 JSR PC ,SCHED ;GO DO IT 
6461 045766 005737 005702 20%: TST PASS1 ;IS THIS THE END OF 1ST PASS ? 
6462 045772 001020 BNE T6EXIT sBRANCH IF NOT 
6463 045774 005337 003702 DEC PASS1 sPASS1 = -1 
6464 022737 000002 003732 CMP @TF .PE,FORMAT ;WAS 1ST PASS DONE IN PE ? 
6465 046006 001405 BEQ 25% ;BRANCH IF S 
6466 046010 012737 9000002 0035732 MOV @TF .PE,FORMAT ;SET TAPE FORMAT TO PE 
6467 046016 000137 045422 JMP G06 ;REPEAT TEST. THIS TIME IN PE 
6469 046022 012737 000004 003732 25%: MOV @TF .GCR, FORMAT ;SET TAFE FORMAT TO GCR 
pot 046030. 000137 045422 JMP G06 ;REPEAT TEST. THIS TIME IN GCR 
6472 046034 C05037 003702 T6EXIT: CLR PASS1 ;RESET “1ST PASS” FLAG FOR _ TEST 
6473 046040 013737 003734 003752 MOV INFORM , FORMAT sRESTORE INITIAL TEST FORMAT 
6474 046046 004737 055714 JSR PC. SDSAV VE ;RESET THE RANDOM SEEDS 
6475 046052 EXIT TST 

046052 104432 TRAP CSExIT 

046054 000040 .WORD 1L10022-. 


—— ee ee ee 


-_ 


= oe 
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64768 
6479 


6481 


MACRO YOS.02 
Stert/Stop Write/Read Test 


160 
000 


104401 


T6REW: 


T6WRT : 


T6WTM: 


T6RD: 


T6SKD: 


L10022: 


BYTE 
WORD 


“WORD 
_BYTE 
. WORD 
>. WORD 
_BYTE 
“WORD 
“WORD 


.BYTE 
BYTE 


. WORD 
. WORD 
.BYTE 
.BYTE 
. WORD 
. WORD 
.EVEN 
ENDTST 


TRAP 
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REW 
NULPAT 


CSETST 


SEQ 164 


;REWIND 


;WRITE RECORDS 


;WRITE TAPE MARK 


;READ RECORDS 


;SKIP TO LEOT 


ne LL TT 
=-—— — _— a eee SS ee ——_ 
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TEST 7: Conversation Test 
6506 .SBTTL TEST 7: Conversation Test 
6507 
6508 e+ 
6509 ;Conversation mode will run with or without error reports. The user 
6510 ;can select, froma list of commands, a sequence which can be used to 
6511 ;emulate a known failure mode. Between commands, the user can specif 
6512 sunique delays, renging from 10 to 250 ms. The user can follow eac 
6515 ;tape command with integer values, the first Naot Sete the 
6514 :byte/record/file count and the second indicating the @ of repetitions 
eats snecessary for that command. 
| lia 
6517 046116 BGNTST 
| pose 046116 T?:: 
6519 046116 005737 003704 START7: TST UDROP ;HAVE ALL UNITS BEEN DROPPED ? 
6520 046122 001014 NE S$ :GO START THE TEST 
6521 046124 PRINTF #@BYPASS,LSTEST ;PRINT THE TEST BYPASSED MESSAGE 
046124 013746 002114 Vv L$TEST, -(SP) 
046130 012746 020527 MOV BYPASS, -(SP) 
046134 C12746 000002 MOV @2,-(SP) 
046140 01 V SP ,RO 
046142 104417 TRAP CSPNTF 
046144 062706 000006 ADD 06 ,SP 
G3ee 046150 000137 046464 JMP T7EXIT ;GET OUT IF NONE LEFT TO TEST 
6524 0461 105737 002216 5$: TSTB CLOCK ;I1S THE CLOCK ENABLED 
6525 046160 001421 BEQ GO7 ;NO, THEN CAN‘T PRINT TIME 
6526 046162 PRINTF @TIME,<B,HOURS>,<B8,MINUTE>,<B,SECOND>, 
046162 6 CLR -(SP) 
0461 153716 002221 BISB SECOND . (SP) 
046170 5 CLR -CSP) 
046172 153716 002220 BISB MINUTE , (SP) 
046176 CLR -(SP) 
046700 153716 002217 BISB HOURS . (SP) 
012746 020037 MOV @TIME , -( SP) 
046210 012746 000004 MOV » - CSP 
2 01 MOV ~RO 
046216 104417 TRAP CSPNTF 
6807 046220 062706 000012 #12,SP 
6528 046224 004737 033550 GO7: JSR PC ,CLREOT ;sMAKE SURE EOT STATUS IS CLEAR 
aH 046230 012737 000100 003616 MOV @ONLB, TSTMSK ;ALLOW ALREADY ONLINE STATUS 
6531 0462 012705 042332 MOV @T1ONL RS ;SET UP TO DO AN ONLINE 
6532 046242 004737 021042 JSR PC , SCHED ;GO ISSUE THE COMMAND 
6533 046246 005737 3704 TST UDROP ;HAVE ALL UNITS BEEN DROPPED ? 
6534 046252 001002 BNE i$ ;NO, CONTINUE 
rot r 000137 046464 JMP T7EXIT ;GET OUT IF NONE LEFY TO TEST 
6537 005037 003554 1$: CLR BRCNT ; CLEAR THE BRANCH COUNTER 
6538 046264 012705 002232 MOV #T7TBL.RS sPOINT RS TO TEST 7 TABLE 
6539 046270 00503 3616 CLR TSTMSK ;NO ALLOWABLE ERRORS 
eaat 046274 052737 1 003616 BIS #LEDB , TSTMSK ;SET UP TO ALLOW LEOT DETECTED 
6542 046302 004737 0336356 10$: JSR PC ,SOSTUP ;SET UP THE RANDOM SEEDS 
6543 046 004737 033772 JSR PC ,PATCLR ;USE THE SAME PATTERN 
6544 046312 062705 ADD @TSTSTP,RS :MOVE RS TO THE NEXT TEST TABLE 


Ee 


H OWARE TESTS 


Te xT 7: 


-_-— _—_—- or er 
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Conversation Test 


122765 


001006 
052737 


104401 


177777 
000310 
000002 
002116 


021042 
003704 


033714 


203%: 
30%: 


403: 


T7EXIT: 


L10023: 
T 


#-1,CMDCRS) 
T7EXIT 
#310,CMDCRS) 
ITMCNTC(RS),.R1 
LS$DLY,R2 

R 


+ + laa 
sob »PCFLAG 


@T7BRFL.PCFLAG 
TTRCNTCRS) BRCNT 


—" 
@T7BRFL,PCFLAG 


10% 
ITMCNTCRS),.R1 
@T7TBL.RS 


@TSTSTP,RS 
Ri 

70$ 

PC ,SCHED 
UDROP 

10% 

PC , SOSAVE 
TST 


CsExIT 
L10023-. 


CsETST 


- eee eee aes oe 


;IS IT AN END _— COMMAND ? 


;NO KEEP GOT 


NG 
;PUT THE DELAY VARIABLE IN Ri 
;GET THE ~— DELAY VARIABLE 


; DECREMENT 
;DEC 


sRESET R2 AND GO TILL R1 IS ZERO 
OMMAND 


:GET THE NEXT C 


;IS IT 2” cet COMMAND ? 


2 
KEEP = TILL ZERO 
REMENT Ri 


SEQ 166 


HAVE WE ALREADY LOAD THE BRANCH COUNT ? 


; 
; 
; YES 
; 
; 


DON’T OVER WRITE IT 
REMEMBER THAT YOUR IN A LOOP 
STERATION COUNT TO BRANCH COUNT 


; HAVE WE BRANCHED Ly. REQUIRED TIMES ? 


Shes 
Ne 

- 

3 

4 

- 

Ssh 


;PUT THE COMMAND NUMBER IN 
;POINT RS TO TEST 7 TABLE 
;START STEPPING RS TO THE COMMAND 
;IS THIS THE RIGHT PLACE ? 


;NO, KEEP GOING 


;GO STPRT THE TEST 
;HAVE ALL UNITS BEEN DROPPED ? 


THE RANDOM SE 


; SAVE 


HARDWARE TESTS 
Conversation Test 


TEST 7: 


6591 
6593 
6604 


34 046476 
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115 
057 


.TITLE PARAMETER CODING 
.SBTTL HARDWARE PARAMETER CODING SECTION 


*¢ 


111 TKIPAD: 
215 T 


KUNT: 
.EVEN 


L10024: 


MACROS ARE 

INTERPRETED BY THE Footed 
MACROS ALLOW — 
WITH THE OPERAT 


ARE PARAMETER CODING SECTION CONTAINS MACROS 


THE HARDOW 
THAT ARE USED BY THE SUPERVISOR TO BUILD aera Bat a 


NOT EXECUTED AS MACHINE INSTRUCTIONS 
RVISOR AS DATA STRUCTURES. 


BGNHRD 
-WORD L10024-LSHARD/2 
LSHARD:: 


TKIPAD.0,0,160002,177564, YES 
TSCODE 


TKIPAD 

TSLOLIM 

TSHILIM 

TKUNT ,2,.0,777,0,251.YES 
T$CODE 


TSLOLIM 
TSHILIM 


sss 


EXIT HRD 


TSCODE 
-ASCIZ ?TKIP ADDRESS? 
-ASCIZ ?T/MSCP UNIT NUMBER? 


E 
EVEN 


SEQ 167 


PARAMETER COOING 


6674 


601007 


000130 
047422 
000001 
013044 
000052 
047453 
177400 
000000 
000030 
001052 
047535 
000377 
000000 
000074 
002130 
047602 
000400 
007044 
003130 
047637 
000001 
003130 
047703 
000400 
004130 
047745 
000001 


004130 
050016 
000400 


ee 
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.SBTTL SOFTWARE PARAMETER CODING SECTION 


THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 






6 
; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 
522 

BGNSFT 

.WORD L10025-L$SOFT/2 
LSSOFT:: 

GPRML ECLK,0,1. YES 

.WORD TSCODE 

“WORD ECLK 

“WORD 1 

XFERF 53 

‘WORD TSCODE 

GPRMD HOUR,0.0,177400,0.24.,YES 

-WORD  TSCODE 

“WORD HOUR 

"WORD 177400 

"WORD TSLOLIM 

"WORD TSHILIM 

GPRMD MINT,2.0,000377,0.60.. YES 

.WORD  TSCODE 

“WORD MINT 

“WORD 000377 

“WORD TSLOLIM 

"WORD TSHILIM 
S$: GPRML CTPA, 4,400, YES 

-WORD  TSCODE 

“WORD CTPA 

“WORD 400 

XFERF 10% 

_WORD  TSCODE 

GPRML SERC,6.1.YES 

“WORD TSCOODE 

“ WORD 

“WORD 1 

GPRML SERR.6.400. YES 

-WORD TSCODE 

“WORD 

“WORD 400 

_WORD TSCODE 

“WORD 

“WORD 1 

GPRML PRPA,10,400, YES 

.WORD TSCODE 

“WORD 

"WORD 400 





SEQ 166 


—— ee oe ee — 
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LLL LLB LLL - 





6683 046662 XFERF 15% 
046662 016044 _WORD TSCODE 
6684 046664 GPRML SOER,12.1.YES 
046664 005130 -WORD TSCODE 
046666 050051 “WORD  SCER 
046670 000001 “WORD i 
6685 046672 XFERT 118 
046672 004024 _WORD  TSCODE 
6686 046674 GPRML SRER,12,.400, YES 
046674 005130 .WORD TSCOOE 
046676 050114 “WORD  SRER 
046700 “WORD 400 
046702 0061 _WORD TSCODE 
046704 050156 "WORD NOCL 
046706 "WORD 1 
6688 046710 GPRML POMP,14,400, YES 
046710 .WORD TSCODE 
046712 “WORD  PDMP 
046714 “WORD 400 
6690 046716 GPRML TSPA,16.1.YES 
0467 _WORD TSCODE 
046720 050264 "WORD TSPA 
046722 000001 “WORD 1 
6691 0467 XFERF 20% 
015044 .WORD TS&CODE 
6692 0467 GPRMD PATE,16,0.177400,0,7. YES 
726 007032 .WORD TSCODE 
730 050313 "WORD TE 
0467 177400 "WORD 177400 
7 “WORD TSLOLIM 
000007 “WORD TSHILIM 
6693 046740 GPRM 0s TSCP 20.1. YES 
740 010 30 _WORD TSCODE 
742 31 "WORD  TSCP 
? “WORD 1 
a : 010130 ; yt — 
os0871 “WORD CHG 
“WORD 400 
6695 XFERT 258 
002024 .WORD TSCODE 
6696 208 XFER SFTEXi 
: 046 076004 .WORD TSCODE 
$633 006760 258 GPRMD CMD1,22.0,000377,0.377. YES 
_WORD TSCODE 
-WORD CMD1 
-WORD 000377 
-WORD TSLOLIN 
“WORD  TSHILIM 
6699 GPRED DPAT,22.0.177400,0.7. YES 
_WORD TSCODE 
77 -WORD OPAT 
086776 “WORD 177400 
04 "wORD TSLOLIN 
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047002 000007 WORD TSHILIM 
6700 047004 GPRMD 8 ICNT,24,0,177777,0,MAXBUF YES 
047004 012052 -WORD TSCODE 
047006 050443 .WORD ICNT 
047010 177777 -WORD 177777 
047912 000000 -WORD TSLOLIM 
047014 020000 WORD TSHILIM 
6701 047016 SPRMD ITER,26,0,177777,0,65000, YES 
047016 013052 -WORD TSCODE 
047020 050505 -WORD ITER 
047022 177777 -WORD 177777 
047024 000000 .WORD TSLOLIM 
6702 047026 065000 -WORD TSHILIM 
67035 047030 GPRMD CMD2,30,0,000377,0,377, YES 
047030 014032 .WORD T$SCODE 
047032 050540 -WORD CMD2 
047034 000377 -WORD 000377 
047036 000000 -WORD TSLOLIM 
047040 (€00377 -WORD TS$HILIM 
6704 047042 GPRMD ODPAT,30,9,177400,0,7,YES 
047042 014032 -WORD TSC 
047044 050424 . WORD AT 
047046 177400 -WORD 177400 
047050 000000 -WORD TSLOLIM 
047052 000007 .WORD TSHILIM 
6705 047054 GPRMD ICNT,32,.0,177777,0,MAXBUF YES 
047054 015052 -WORD TSCODE 
047056 050445 -WORD ICNT 
047060 177777 -WORD 177777 
047062 000000 -WORD TSLOLIM 
047064 020000 -WORD TSHILIM 
6706 047066 GPRMD ITER,34,0,177777,0,65000,YES 
047066 016052 -WORD TSCODE 
047070 050505 -WORD ITER 
047072 177777 -WORD 177777 
047074 000000 -WORD TSLOLIM 
6707 047076 065000 -WORD TSHILIM 
6708 047100 GPRMD CMO3,36,0,000377,0,377,YES 
047100 017032 .WORD TSCODE 
047102 -WORD CMDS 
047104 000377 -WORD 000377 
047106 .WORD TSLOLIM 
047110 000377 .WORD TSHILIM 
6709 047112 GPRMD ODPAT,36,0,177400,0,7,YES 
047112 0170352 .WORD TSCODE 
047114 24 . WORD AT 
047116 177400 -WORD 177400 
047120 000000 .WORD TSLOLIM 
047122 000007 -WORD TSHILIM 
6710 047124 GPRMD ICNT,40,0,177777,0,MAXBUF , YES 
047124 020052 -WORD TSCODE 
047126 0504435 -WORD ICNT 
047130 177777 -WORD 177777 
047132 9000000 .WORD TSLOLIM 
047134 020000 .WORD TSHILIM 


ore CODING 


6711 


6712 


6713 
6714 


6715 
6716 


6717 


6718 04 


6719 


6720 
6721 


6722 


6725 


6724 


047136 
047136 


026052 
050443 
177777 
000000 
020000 
027052 


SF TEX1: 


CONT1: 


uit 


_ x 
* 
m 
D 


»< 
ma 
m 
xD 


preenmi eS 
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ITER, 42.0.177777.0,65000, YES 
TSCODE 


os 44,0,900377,0,377, YES 


$CODE 


CMD4 

000377 

TSLOLIM 

TSHILIM 

iP 44,0,177400,0,7,YES 
$CODE 


TSHILIM 
ICNT ,46.0.177777,.0,MAXBUF , YES 
T$CODE 


ICNT 

177777 

T$i. OLIM 

TSHILIM 

ITER ,50,.0,177777,0.65000, YES 
T$CODE 


TSHILIM 
CMDS .S2.0,000377,0,377,YES 
$CODE 


LIM 
DAT 52.6.177400,0,7, VES 
TSCODE 
DP AT 
177400 
TS$LOLIM 
TSHILIM 
ICNT ,54,.0.177777.0,MAXBUF © YES 


TSHILIM 
ae 56.0,177777,0,65000, YES 
T $CODE 


SEQ 171 


LE TTT LT 


oar nlal'p O01 


SOF TWAR 


6725 
6726 


6727 


6726 


04 
6729 


6730 


6731 
6732 


6733 
6734 


04 
6735 
04 


6736 


6737 


_——_——_ ee ee 


050505 
177777 
000000 


031052 
C50443 
177777 
000000 
-020000 
032052 
050505 
177777 
000000 
065000 


035052 
050505 
177777 


SFTEX2: 


CONT2: 


ee ee 


ITER 
177777 
T$LOLIM 
TSHILIM 
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CMD6 ,60,0,000377,0,377, YES 
T$CODE 


CMD6 
000377 
TSLOLIM 
TSHILIM 


DPAT ,60,0,177400,0,7,YES 
T$CODE : 


DPAT 
177400 
T$LOLIM 


T$HILIM 
ICNT .62 
T$CODE 


LIM 
ITER 64 
T$CODE 


T$CODE 
OPAT 
177400 
TSLOLIM 


T$HILIM 
ICNT, 70 
TSCODE 
ICNT 
177777 
T$LOLIM 


TS$HILIM 
ITER, 72 
T $CODE 


ITER 
177777 


.0,177777,0,MAXBUF , YES 


»0,177777,0,65000, YES 


.0,177400,0.,7.YES 


.0,177777,0,MAXBUr , YES 


.0,177777,0,65000, YES 





SEQ 172 
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SOFTWARE P 

047414 000000 
047416 065000 

6738 

6739 047420 SFTEXS3: 
047420 070004 

6740 

6741 047422 105 116 101 ECLK: 

6742 047453 040 111 116 HOUR: 

6743 047535 040 111 116 MINT: 

6744 

6745 

6746 047600 SFTEX4: 
047600 106004 

6747 

6748 047602 103 110 101 CTPA 

6749 047637 105 116 SERC: 

6750 047703 040 105 116 SERR: 

6751 047745 040 111 116 NS 

6752 

6753 

6754 050014 SFTEXS: 
050014 060004 

6755 

67 050016 103 110 101 PRPA: 

6757 050051 040 105 116 SOER: 

6758 050114 040 040 105 SRER: 

6759 

6760 

6761 050154 SFTEX6: 
050154 043004 

6762 

6763 050156 040 105 116 NOCL: 

6764 050221 040 105 116 PDMP: 

6765 

6766 

6767 050262 SF TEX7 
050262 060004 

6768 

6769 103 410 101 TSPA: 

6770 0503135 040 104 101 PATE: 

6771 050331 040 105 116 TSCP: 

6772 050371 040 103 110 CHGF 

6773 

6774 

6775 050422 SFTEX8: 
050422 043004 

6776 

6777 050424 040 040 104 OPAT: 

6778 3 040 040 111 ICNT: 

iba. 050505 040 040 111 ITER: 

67861 

6782 050530 SF TEX9 
050530 026004 

6783 

6784 050532 103 115 104 CMD1: 

6785 050540 103 115 104 CMD2: 


-ASCIZ 
-ASCIZ 


T$LOLIM 
TSHILIM 


SF TEX4 
TSCODE 


ENABLE TIME OF DAY oe ee 
/ INPUT IN 24 HOUR FORMAT (OMIT LEADING ZERO)/ 
; INPUT MINUTES COMIT LEADING ZERO)/ 


SFTEXS 
TS$CODE 


/CHANGE CONTROLLER PARAMETERS/ 

/ ENABLE CONTROLLER ERROR pa al 

/ ENABLE CONTROLLER ERROR RECOVERY 

/ INTITIAL DENSITY OF EACH TEST 1S. GCR/ 


SF TEX6 
TSCODE 


/CHANGE PRINTING PARAMETERS/ 
/ ENABLE SOFT ERROR REPORT PRINTING/ 
; ENABLE READ SOFT ERRORS ONLY/ 


SF TEX7 
TSCODE 


/ ENABLE CLEAR STATS ON FATAL ERROR/ 
/ ENABLE VARIABLES DUMP ON ERROR/ 


SF TEXS 
TSCODE 


/CHANGE TEST PARAMETERS/ 

/ DATA PATTERN/ 

/ ENABLE DATA COMPARES IN TEST 5/ 
/ CHANGE COMMAND SEQUENCE/ 


/ DATA PATTERN/ 
4 ITEM COUNT C(CBYTE,.RECORD, OBJECT )/ 
/ ITERATION COUNT/ 


SEQ 173 


~ ET A LL. cL tL LC tC: CC CT LC LE LLL LLL LL LLL LLL LLL LE LLL A 


ee 


ee 


PARAMETER COOTNG MACRO YO5.02 
SOFTWARE PARAMETER CODING SECTION 
6786 105 115 104 
6787 103 115 104 
6788 0 2 103 115 104 
6789 0505/0 103 115 104 
6790 050576 103 115 104 
6791 
6792 
6793 
6794 050604 
050604 
6795 
6802 
6803 050604 
6804 
6805 050604 
050614 
6807 070614 
6808 
110614 
6810 
6811 110734 
110734 110750 
110736 000004 
110740 
6812 
6813 110740 
6614 110740 
110740 000000 
110742 000002 
110744 
6615 110744 174500 
6816 110746 000000 
68617 110750 
110750 
6818 110750 
6819 000001 


— ———- a 


CMD3: 
CMD4 : 
CMDS: 
CMD6 : 
CMD7: 


SFTEXT: 


L10025: 


RDBUF : : 
WRTIBUF : : 


PATCH:: 


L$LAST:: 


L10026: 


L10030: 


. END 


——_ —_ es 
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EN 

ENOSF T 

EVEN 

ENDMOD 
BLKW 4 
BLKW 10000 ;READ BUFFER 
BLKW 10000 ;WRITE BUFFER 
BLKW 50 ;PATCH SPACE 

LASTAD 

.EVEN 

-WORD TSFREE 

-WORD TSSIZE 

BGNSETUP 1 ;NUMBER OF P-TABLES 

BGNPTAB 

-WORD 0 

.WORD L10030-./2-1 
-WORD 174500 ;IP ADDRESS 
-WORD O ;UNIT NUMBER 

ENDPTAB 

ENDSETUP 


SEQ 174 


PARAMETER CODING 
Symbol teble 


ABO = 000200 G 
ABOER 011531 
_ ABOR 025622 
ABORT « G 
ABOT 011046 G 
a 0G 
ACCESS ys dng, . 
ADJUST 027420 e 
| ALLPAT= 000 G 
ARETRY 003564 G 
ASSEMB= 10 
AUTCNT 003566 G 
—- ys Esra P 
AVL =» 0001350 G 
AVLB = 0G 
AVLER 011562 
AVLT 011066 G 
AVU = 000134 G 
BADEL 012647 
BADER 011674 
BADERL 011556 
BITO = 000001 G 
BITOO = 000001 G 
BITO1 = 000002 G 
BITO2 = 000004 G 
BITOS = 000010 G 
BITO4 = 000020 G 
BITOS = 000040 G 
BITO6 = 000100 G 
BITO7 = 000200 G 
BITOS = 000400 G 
BITO9 = 001000 G 
qvi 2G 
BIT10 = 002000 G 
BIT1i1 = 000 G 
BIT12 = 010000 G 
BIT13 = 020000 G 
BIT14 = 040000 G 
BIT1S = 100000 G 
BIT2 = 000004 G 
BITS =» 000010 G 
BIT4 = 000020 G 
BITS = 000040 G 
BIT6 = 000100 G 
BIT7 = 000200 G 
BITS = 000400 G 
BIT9 = 001000 G 
BOE = 00 G 
BOTER 012002 
BOTT 011176 G 
BRCNT 003554 G 
BUF 3600 G 
BUF 34412 
BUFDSC 0260 


MACRO YOS.02 


014112 


o 
OOAHOHOHOAHOH AHOOHGOHHOHOHHHH BD AHHOOHOHOHOOHHHOHHHHOHHHOHH 


Oog 


011116 
000031 
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G 
G 


010734 G 


012622 


OD AOOOoG 


a 
OO oo 


DROP = 0000 


DROPIT= 


pe 
OHOOOOHOHOOH O§F AM AH HO OAHHOHOOOH 


ERRLOG= 040000 


OOOO 


OQAAGAHDAANAARHG HAHAHAHAHAHA AHGAHOOA 


D ANHHHAHHAHAAAARAHHOA 


er a + ee “ 
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013172 G Fs = 000040 GWRBYS= 000140 G IONORM= 000000 G 003216 G 

013170 G FSCLEA= G00007 GWRBY4= 000142 G IOPORE= G L$ACP 002110 G 

ERRTLY 032624 G $ = 000016 GSCNTO= 0002 IOSTAT 010732 G LSAPT 002036 G 

ERRTYP 013166 G FSEND = 000041 GSDELM= 000372 IOTIME= G L$AU 040276 G 

€ 015730 G F $HARD= G$DISP= 0000035 isk -°® 100 G L$ 002070 G 
| ERROL O1 G = 000015 GSEXCP= 000400 ISTART 037444 L$AUTO 037756 G 
_ERRO2 016056 G FSINIT= G$HILI= 000002 050505 Lsc 002106 G 
_ ERROS 016155 G FS$JMP = 000050 G$LOLI= 000001 ITERS 003576 G LS$CLEA 037760 G 
| ERROS 0162135 G FSMOD = G$NO = 000000 ITMCNT= G L$co 002032 G 
| E 016272 G FSMSG = 000011 GSOFFS= 000400 ITMOFF= 000002 G L$DEPO 002011 G 
E 0163551 G F$PROT= 000021 GSOFSI= 000376 ITRCNT= G L$DESC 002142 G 

_ERRO7 016421 G FSPWR = 000017 G$PRMA= 000001 IVSER 0 L$DESP 002076 G 
ERROG6 016461 G FSRPT = 000012 G$PRMD= 000002 IvSTi 011076 G L$DEVP G 

ERR 016516 G FSSEG = 3 PRML= 000000 IvSTt2 011216 G L$DISP 002124 G 

ERR10 016557 G F $SOFT= 5 G$RADA= 000140 IvVST3 011266 G L$OLY 002116 G 

ERR1i1 016611 G FS$SRV = 000010 G$RADB= 000000 IXE = G L$OTP G 

ERRi2 0166357 G F$SUB = 000002 G$RADD= 000040 = 000041 L$OTYP G 

ERRiS 016675 G 8 = 000014 G$RADL= 000120 I$AUTO= 000041 L$D0U 040270 G 

ERR14 016726 G FSTEST= 00000 $RADO= 20 I$CLN = 000041 002072 G 

ERR1iS 016754 G GCMDST 025654 G$XxFER= IsOU = 000041 L$OVTY 002200 G 

ERR1i6 017024 G RDRP= 000072 G GSYES = 000010 I$HRD = 000041 L SEF 002052 G 

ERR17 017051 G S = 900210 G = 00000 ISINIT= 000041 LSENVI G 

ERR1i6 017110 G GCSCFL= 000020 G HDATER 011634 I$ = 000041 LSERFT 013166 G 

ERS = 110 G GCSEXT 027572 HDATT 011126 G I$MSG = 000041 LSETP 002102 G 

ERTLY 0352024 GCSHOL 027006 G HDLEXT 02 I$PROT= 000040 LS$EXPi 002046 G 

EVENT 0037356 G GCSREF 010736 G HELP = I$PTAB= 000041 LSEXP4 002064 G 

Ev.» G GCSRFL= 0G HIADDR= 2G ISPWR = 000041 L$EXPS 002066 G 

EV.COR= 000150 G GOCERR= G HIBYTE= 177777 G I$RPT = 000041 L$HARD 046500 G 

EV.CTO= 000052 G D= 000054 G RP 003 G I$SEG = 000041 L$HIME 120 G 

EV.OST= 000050 G GHRDUA= 000056 G * > G I$SETU= 000041 L$HPCP 002016 G 

EV.HER= 0002135 G GHROWR= 000052 G HOUR 047453 I$SFT = 000041 L$HPTP O002022 G 

EV.I0S= 000152 G GMEDER= G 002217 G I$SRV = 000041 L $HW 002210 G 

EV.LGP= 000010 G GNOERR= 000074 G HSTER 012216 I$SuB = 000042 L$icP 002 G 

EV.SER= 0001535 G = 000001 G HSTIMO= G IsTST = 1 L$INIT 0O G 

EV.SRI= 0001135 G GOTHRD= 000066 G HSTT 11 G J$JMP = 000167 L$LADP 00 G 

EV.SRT= 000053 G GOTHUA= 000070 G HUNGER 012277 KWCSR = 177 G L$LAST 110740 G 

EV.URE= 600350 G THWR = G IBE = 010000 G K 020702 G L$LGAD 002100 G 

ExC1A2 , 027576 GO1 040412 ICNT 050443 LEDB = 1G L$LUN 002074 G 

EXC2AS 027620 G02 042734 026756 LEDER 012136 L$MREV 002050 G 

EXCSA4 O02 GOS 043554 Ibu ® G LEDT 011256 G L$ G 

EXC4A1 027664 G04 14 IER = 020000 G LEOTFL= 0000350 G L$PRIO 002042 G 

EXIT 026162 GOS 045046 It 026044 LF .CON= 000100 G L$PROT O02 G 

EXTCLN G06 045422 ILLCMD= G LF .SNR= 1G L$PRT 002112 G 

EXTINT 037720 GO7 4 ILGCOP 026620 LF .SUC= 200 G L$REPP 00 G 

EXSREW 044142 GROBY1= 000144 G im. =—ls 200 G LGPEL 013122 L$REV 002010 G 

EsEND = 002100 Y2= 000146 G IMMBIT= G LGSTAT 030520 G L$RPT 034536 G 

ESLOAD= 000035 GRD6 Y3= 150 G INFORM 003734 G LINE 020524 G L$SOFT 046 G 

FAIL = 000020 G GROBY4= 000152 G NIT 025616 LOBYTE= 177776 G L$SPC 002056 G 

FLAG = 04 G GsFT%D= 000050 G INITER 012431 LOE = 04 G L$SPCP 002020 G 

FMTER 011762 GSF1WR= G INITIT 037724 G LOOP 026610 L$SPTP 002024 G 

FMTT 011166 G GSTERD= 000042 G INT = 000170 G LOOPS 010744 G L$STA 0020350 G 

FM.BAD= 1G GSTEUA= G INTDON= 000001 G LOT = 10 G L$SW 002216 G 

FM.CNT= G GSTEWR= 0G INTERR= G LUNFLG= 000026 G L$TEST 002114 G 

FM. TPE®= SG GUNSTA 025714 INTTBL 026776 LUNSTP= 000224 G L$TIML 002014 G 

F 003732 G GUS = 000220 G IOERTB 010756 G LUNO 002322 G L$UNIT 002012 G 

FSAU = 900015 GWRBY1i= 000134 G IOHUNG= 000002 G LUN1 002546 G L.BADR= 000030 G 

FSAUTO= 000020 GWRBY2= 000156 G IOICRD= 020000 G LUN2 002772 G L.CHVR= 000025 G 


—E—— nn 
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L.CNTI= 000014 G MAXBUF= O G ONL = 000140 G PCFLAG 003674 G P.CTPM= 000034 G 
L.CNTO= 000061 G MAXITR= 603720 G B = 000100 G PCKSIZ 010750 G P.OVPM= 000034 G 
L.CNT1= 000062 G MD.ALL= 000002 G ONLINE 025324 MDBF 003442 G P.FLGS= 000011 G 
'L.CNT2= 000063 G MD.CMP= 040000 G OP .ABO= 000001 G POCERR= 120 G P .FMEM= G 
L.CRF = 000000 G MD.CSE= 020000 G OP .ACC= 000020 G 050221 P .FORM= G 
| L.CSVR= 000024 G MD.OLE= 000200 G OP .ACP= €00102 G PDORECV 026352 G P.HTMO= 000020 G 
L.OFLG= 000054 G MD .EXC= 0G OP .AVA= 900100 G * G P.MEDI= 000034 G 
L.ORVC= 000053 G MD.IMM= 000100 G OP .AVL= 9000010 G PHRDRD= 000112 G P.MLUN= 000014 G 
| L.ORVS= 000064 G MD.NXU= 000001 G OP .CMP= 000040 G PHRDUA= 000114 G P.MOD = 000012 G 
| L.EVNT= 000012 G MD .OBC= G OP .DAP= 000013 G HR * 000110 G P .MXWR= G 
L.FHVR= G MD.REV= 900010 G OP .END= 000200 G PKPRNT 015416 P.NREC= 000050 G 
_.FLGS= 000011 G MO.RWD= 000002 G OP .ERG= 000026 G DER= G P.OPCO= 000010 G 
| L.FMT = 000010 G MD.SEC= 001000 G OP .ERS= 000022 G PNOERR= 000132 G P.OTRF= 000014 G 
L.FMTD= 000042 G MD.SER= 000400 G OP .GCS= 000002 G PNT 2 1 G P.POS = 000034 G 
L.FSVR= 000051 G MD.SPD= 000001 G OP .GUS= 000003 G POLER 012076 P.RCSK= 000014 G 
L.GPCT= 000044 G MD.SWP= 000004 G OP .ONL= 000011 G POLT 1236 G P.REDD= 000014 G 
L.LBLK= 000060 G MD .UNL= G OP.RD = 000041 G PORTER 012317 P.SPED= G 
L.LVL = 000042 G MINBUF = 000024 G OP .REP= 000045 G POTHRD= 000124 G P.STS = 9000012 G 
L.MLUN= 000026 G MINITR= 144 G OP .SCC= 000004 G POTHUA= 000126 G P.TIME= 000024 G 
L.OPFL= 000070 G MINLIM 010754 G OP .SUC= 000012 G POTHWR= 000122 G P.TMGC= G 
L.PBLK= 000056 G MINT 047535 OP .WR = 000042 G PROBY1= 000164 G P.TMSK= 000020 G 
L.PSTN= 000044 G MINUTE 002220 G OP .WTM= 000044 G PRDOBY2= 000166 G P.TRBC= 000040 G 
L.RTRY= 000043 G MISSEQ= SG OWN = 100000 G PROBY3= 000170 G P.UHVR= 000053 G 
L.RWST= 000066 G MRETRY 003560 G OSAPTS= PRDOBY4= 000172 G P.UNFL= 000016 G 
L.SEQN= G MSCPVR= G OSAU = PRI = 002000 G P .UNIT= G 
L.STI = 000050 G MSGEXT 015610 OSBGNR= 000001 PRIERR 032714 G P.UNTI= 000024 G 
L.STS = 000052 G MSGLEN= 177774 G O$BGNS= 000001 PRIPCK i P.USVR= G 
L.TRK = 000055 G MSKTST 031712 $ = 000001 PRIOO = G P.VRSN= 14 G 
L.UHVR= 000041 G MTBLOV= 0G OSERRT= 000001 PRIO1 = G 023144 G 
L.UNIT= (3 = G GNSW= 000001 PRIO2 = 000100 G RANGEN 023010 G 
L.UNTI= 0000350 G LK 017763 G OSPOIN= 000001 PRIOS = 000140 G RANWRD 00 G 
L.USVR= 000040 G NCLKFL= 2G SETU= RI = 000 G RAN1 003606 G 
L.VSER= 000044 G NOCL 050156 PASCNT 3700 G PRIOS = 000240 G RAN2 003610 G 
L10000 002°:14 NOCLK 0 6 G PASS1 003702 G PRIO6 = 000300 G RAN3S 003612 G 
110001 007.322 NOCLR 002232 G PATCH 110614 G PRIO7 = 340 G RD = 000010 G 
10002 014422 NOTALY= 000004 G PATCLR 033772 PRNTPA 002227 G RDBUF 050614 G 
L29MOS 020636 NRDY = 000002 G PATE 050313 PRPA 050016 ROR = 000011 G 
L10005 020700 = 000000 G PATERN 002235 G PRTCLR 026476 G RDRENO 010456 G 
} Li 021040 L 024614 PATGNI 0224350 TORV 026172 G RORENI 010542 G 
L10007 0 2 NULPAT= G TGN2 022444 PRTEXT 032362 RDOREN2] 10626 G 
L10010 037754 NUPASS 037056 PATGNS 022456 PRTINT 026556 G 010712 G 
110011 037756 NURESP = G PATGN4 022516 SFTRD= 000106 G RDSOER 002231 G 
L10012 040010 OBCTHD 023436 G PATGNS 0225 PSFTWR= 000104 G RDSRGO 010416 G 
L10013 040274 OBJECT 003676 G PATGN6 022552 PSTERD= 000100 G RDOSRG1 010502 G 
110014 040 OBJFOH= 000036 G PATGN? 9022 PSTEUA= 000102 G RDSRG2 010566 G 
L10015 042624 OBJFDL= 000034 G PATSAV= 24 G PSTEWR= 000076 G SRG3 010652 G 
L10016 043444 OBOFFH= 000006 G PATT 022412 G PWRBY1= 000154 G ROTB = G 
L10017 044 CBSFFL= 000004 G PAT1 = 000001 G PWRBY2= 000156 G ROTER 012050 
L10020 0447 OUVDFLG= 000020 G PAT2 = 9000002 G PWRBY3S= 000160 G ROTT 011226 G 
L10021 045312 OFLER 011545 PATS = 000003 G PWRBY4= 000162 G READ 
L10022 04611 OFLT 011056 G PAT&4 = 900004 G P .BCNT= 000014 G RECCNT 003726 G 
L10023 0646474 OLD1 027124 PATS = 09000005 G P .BUFF= 000020 G RESP 003572 G 
L10024 046564 OLD2 027 PAT6 = Q00006 G P.CHVR= 000051 G RESPON 003552 G 
L10025 0 OLOS3 027264 PAT7 = 000007 G P.CMST= 000020 G RETDON 030230 G 
110026 110744 OLD4 027344 PCBEND= 003522 G P.CNTF= 000016 G RETFLG= 200 G 
L10030 110750 ONE = 000001 G PCBSTP= 000014 G P.CRF = G RETRY 021232 G 
MANCNT 003562 G ONEFIL= 000001 PCB3SP= 000044 G P.CSVR= 000050 G RET1 032150 G 
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Symbol teble 
RET2 032216 G SERREC 002225 G ST.ABO= 000002 G TKUNT 541 T$$ «= ¢10025 
REVBIT= 000001 G SEXB = GOO0004 G ST.AVL= G TLYEXT 031106 T$$SRV= 010006 
REW * 160 SEXCNT 3 G ST.BOT= 000015 G TMB = 10 G T$$SW = 01000 
REWIND 025520 SEXER 012114 ST.CMD= 000001 G TMCNT 003730 G TS$$TES= 010025 
RLSER 12452 XT 011246 G ST.CMP= 000007 G TMER 012022 Tl 049 G 
' RLST 011306 G SFPTBL 002216 G ST.CNT= 000012 G TMT 11206 G TIEXIT 042306 
RNDBYT= G SFTEXT 0506 ST.DAT= 000010 G TPASS1= G TILEOT 042 
RNOITR= G SFTEX1 047152 ST.DIA= 000037 G TPEEL 012572 TION. 042332 
RNUSAV= 000020 G SFTEX2 047346 ST.ORV= 000013 G TPEERL 011346 TiRD1 86042552 
ROLSAV= 000022 G SFTEX3S 047420 ST.FNT= 000014 G PA 50264 TiRD] 2560 
RSPBFO 004212 G SFTEX4 047600 ST.HST= 000011 G TSTGCR 020562 G TiRDS 2566 
RSPBF1 005252 G SFTEXS 050014 ST.LED= 000023 G TSTMSK 3616 G TIRDS4 042574 
RSPBF2 006312 G SFTEX6 050154 ST.MFE= SG TSTPE 020610 G TiRDS 042602 
RSPBFS 0073552 G SFTEX? 050262 ST.MSK= 000037 G TSTSTP= G TiRDG 042610 
RSPCNT 003540 G SFTEX8 050422 ST.OFL= 000003 G STSUC 042324 TIREW 2340 
RSPHOL 027706 G SFTEX9 050530 ST.ONL= 000400 G TSARGC= T1SKD 
RS1 * 0012353 G SKD = G ST.POL= 000021 G TSCODE= 026004 TiSKP 2 
RS2 # 007622 G SKP = G ST.ROT= 000020 G TSERRN= TISKP1 042456 
$3 . G SKPTMK 025032 ST.SEX= 000022 G TSEXCP= TiSKP2 2 
RT 04261 SKR 2 1G ST.SUB= 000040 G TS$FLAG= TiSKR 042370 
RTYEL 012735 SLTUSE= 000010 G ST.SUC= 000000 G TSFREE= 110750 TiISKR1 24 
0 G SOER 050051 ST.TM = 000016 G 2 TiSPC1 042376 
RWI = 0001635 G SOERRP 0622350 G ST.WPR= G TSHILI= 065000 T1SPC2 2 
R10 003714 G SOFT = 3G SUBCNT 003602 G T$LAST= 000001 TisPcs 042412 
Ril 003716 G SOFTER 003570 G SUBITR 023246 G T$LOLI= 000000 TiSPO1 042420 
Ri2 003720 G SPC a G SUBSEC 002222 G TS$LSYM= 010000 TiSPO02 042434 
13 003722 G SPCASC 011412 SUC = 150 G T$LTNO= T1iSP03 042442 
R3SAVE 003740 G SPCOBJY 025106 SUCCES= 1G TSNEST= 177777 TISPR1 042450 
R4SAVE 003742 G SPCREC 024764 SUNC 025422 T$NSO = 000000 TiISPR2 042472 
8 003710 G SPO « 000070 G SUPRES 026110 T$NS1 = O000CO05 TiIWRL 04 
9 003712 G SPR = 000071 G SUW = 000155 G T$PCNT= 000000 TiIWRE 042514 
RR 010752 G SRER 050114 SVCGBL = T$PTAB= 010027 TIWRS 
SAVDIF 003614 G START 036704 SVCINS= 000000 TSPTHV= TIWR4 #042530 
scc “ 230 G START1 040 SVCSUB= 000000 TSP TNU= TIWRS 042536 
ScD 8 S52 G START2 04 SVCTAG= 000000 TSSAVL= 177777 TiIWRE6E 
SCHED 21042 G STARTS 043446 SVCTST= 000000 TS$SEGL= 177777 TIWTM 042354 
SCNTCH 025742 START4 044 SYSFAT= 000000 G TSSIZE= 2 G 
SCR a 51 G STARTS 044740 S$LSYM= 010000 TS$SUBN= T2E = 004716 G 
SDATER 011654 START6 045314 $1 = G TS$TAGL= 177777 T2ZEXIT 043356 
ATT 011316 G START? 11 TALLY 030570 T$TAGN= 010021 T2LEOT 043414 
SOSAVE 033714 G STATER 012476 TBL = 003650 G TSTEMP= 2R0 043422 
STUP 033636 G STATUS= G TCNTFL= G TSTEST= ? T2REW 043400 
SECOND 002221 G STATO1 035770 TEMP 003550 G TSTSTM= 177° T2SKD 0434350 
SECRNS 003724 G STATO2 036036 TESTPA 002234 G T$TSTS= ive T2SP0 043436 
SED1 = 000174 G STATOS 036061 F.BLK= 000010 G T$$AU = 010014 T2WRT 043406 
SED2 = 000176 G STATO4 036103 TF .GCR= 000004 G TS$$AUT= 010011 T3 G 
SEDS = 000200 G STATOS 036157 TF.PE = 000002 G TS$CLE= 010012 T3EXIT 044224 
SEED1 = 000202 G AT .036215 TF .800= 000001 G T$$DAT= O1 T3RD 044270 
SEED2 = 000204 G S'tATO? 036256 TIME 020037 G T$$DU = 010013 T3REW 0442 
SEEDS = G STATO8 036314 TIMER 010742 G TS$HAR= 010024 T3SP0 044276 
SELDAT 022246 G STATOS 036 TIMERR 012343 T$$HW = O1 T3WRT 044254 
SELREC 022712 G STAT10 036424 TKERR 026750 T$$INI= 010010 T3WIM 044262 
Q@ER 012400 G STAT11 036462 TKINIT= 111400 G T$$MSG= 010003 4 044306 G 
RC 047637 STATi2 036534 KIP = G T$$PC = 000001 T4EXIT 044702 
RC 002224 G STAT13 036606 TKIPAD 046524 T$$PRO= 010004 T4REW 044714 
SEREXC= 2G STFPCK 024342 G TKSA = G T$$PTA= 010027 T4WRT 044722 
Re 047703 STINIT 0O 4 TKUNIT= G T$$RPT= 010007 T4WTM 044730 
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Symbol table 


TS 044740 G T7BRFL= 0GO001 G UCDSRG= 000220 G UNKERL 011356 WPRER 011607 
TSCMP 86002236 G T7CMD1 & UDROP 003704 G UNLBIT= G WPRT 011106 G 
050331 T7CMD2S 002246 VEOT 003706 G UNTEOT 020253 G . 

TSEXIT 5264 T7CMOS 254 UF .CMR= 000001 G UNTLOT 020 G WRITE O02 
045304 T7CMD4 UF .CMW= 000002 G UNTSTP= G 
TSREW 5276 T7CMOS 002270 UF .RMV= 000200 G URBEND= 000212 G WRIBUF 070614 G 
045314 G T7CMD6 002276 UF .VSS= 000040 G = 000216 G WTAPMK 0251 
T6OEXIT T7CMD7 UF ..VSU= 0 G UROSRG= 000214 G M = 000100 G 
046100 T7E 002312 UF .WPH= 020000 G UREEL 0135022 XFERST= 000010 G 
T6REW T7EXIT UF .WPS= 010000 G SPBF= 000210 G X$ALWA= 000000 
T6SKD 046106 T7T 002232 G UNDROP = 32 G UWEEL 0135046 X$FALS= 000040 
T6WRT 046064 VAM = 000 G UNJAM 033420 G WPRB = 000020 G X$OFFS= 000400 
T6WTM 046072 UCDEND= 000222 G UNKEL 012675 WPRBIT= 000005 G X$TRUE= 000020 
77 046116 G 
. ABS. 110750 000 )=s CRW, 1, GBL . ABS, OVR) 
000000 001 (CRW.I,LCL, : 
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